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AMSTRAD est une marque déposée. ; 
CPC infos est une revue mensuel totalement indépendante 
d’AMSTRAD GB et d’AMSTRAD FRANCE. 
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Remerciements à la société TITUS pour la , SSI 
photographie de couverture (jeu Préhistorik). 
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Finalement, j'ai reçu assez de fanzines pour alimenter la rubrique de ce mois ci. 
Alors continuez à envoyez vos fanzines à la rédaction sur disques ou sur papier, 
c’est très bien et en plus cela vous fait de la pub. Attention, vérifiez bien la 
qualité de vos disques avant de les envoyer, car certains sont illisibles : 

c’est Le cas de Return for Escape. 

Conclusion, il ne passe pas dans ce numéro. Le mois dernier, Ali Gator Dundee 
n'avait pas d'adresse maïs est-elle 
vraiment nécessaire ? Enfin, pour 























ceux qui ne connaîtrait pas Claude =. : es 
Le Moullec : 83, RS = 
rue Joliot Curie 


22420 Plouaret. 


Dernière petite chose, j'ai reçu 
la préview de Génération CPC 4 
et je n’ai pas eu le temps de 
prendre des photos. 
Apparement, il y a de l’overscan, 
des rasters, du multi mode et de 
la musique. En fait, cela 
ressemble plus à une démo avec 
beaucoup de textes qu’à un 
fanzine. Je suppose que ce £ 
numéro sera déjà diffusé te : sé. EE -<E. de 
lorsque CPC Infos 
sera paru. 
























Le numéro deux d'Arkadia est 
particulièrement interéssant : tout 
d'abord c'est le plus important 
en quantité puisqu'il occupe 4 
faces de disquettes et ensuite, la 
réalisation est très bonne. Bien sûr, 
iln'y a pas d'écrans en overscan, 
de rasters, de scrollings différen- 
tiels sur 5 plans (on se calme 1!) 
mais des images numérisées bien 
placées, et une débauche de 
textes (2 disquettes quand 
même). C'est clair, c'est agréar- 
ble à regarder et à écouter. 
Donc précipitez vous sur Arkadia : 





Grégory Cann 
],rue A Le Bras 
29200 Brest 


THE OTHER 
@1RED;, 


Le premier numéro de T.O.W. 
est présenté sur une seule face 
de disque, ce qui peut sembler 


un peu léger par rapport aux 
autres productions, mais ne vaut- 
il pas mieux privilégier une certai- 
ne simplicité pour mieux respec- 
ter des délais de parution. Enfin, 
le numéro 2 comprendra 2 faces. 


LE.C. 
Les Pataudes Boisseuil 
87220 FEYTIAT 
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Effectivement, le numéro 4 est 
plus complet que le numéro 3 et 
la copie intégrale n'est plus né- 
cessaire pour diffuser le fanzine. 
En revanche, je ne sais pas si mon 
exemplaire est buggé ou quoi, 
mais il y a des problèmes d'accès 
à certains fichiers (Read Fail). En- 
fin les rubriques habituelles sont 
là : test de démos, interviews, 
pokes, etc. Pour se procurer le 
farzine : 1 timbre à 3.80 + 1 timbre 
à 2.30 + 1 disquette (pleine de 
préférence) + une enveloppe 
self-adressée. 

Au fait SOS recherche un gra- 
phiste et un musicien alors, si vous 
êtes interessé, n'hésitez pas : 


SOS Fanzine (Moussa) 
12, rue de Corse 
93600 Aulnay-sous-bois 


ou 
SOS Fanzine (Steve) 


5, rue J. Prévert 
93430 Villetaneuse 


MISReNeI 


Ne cherchez plus ce titre dans 
la presse des fanzines, puisqu'il 
change dès le mois de Juin. Dé- 
sormais vous trouverez Roolstrad. 
Cela ne changera pas le nombre 
de pages qui est supérieur à 20. 
Le numéro 7 est prévu en Sep- 
tembre et il ÿ aura même un nu- 
méro hors-série spécial Help 


Carole Duguy 
Bel-égo 
44850 St Mars du désert 





DEÉCHAINE 


Le numéro 15 du Croco est 
toujours en freeware, Il comprend 
20 pages et beaucoup de textes. 
Les rubriques sont diverses et 
comprennent même une BD plus 
des pages de délire qui tournent 
vite aux «private jokes» pas très 
interéssantes pour ceux qui n'ont 
pas tout suivi. Pendant que j'y 
suis, l'édito de se numéro me 
semble quelque peu inspiré d’un 
édito de Mad Movies par le cé- 
lèbre JPP, non ? 

























Le Croco Déchainé 
5, rue A. Tournade 
17000 La Rochelle 








Liberty est un fanzine traitant 
de tous les micro-ordinateurs mais 
bien sûr plus particulièrement des 
CPC. L'on y trouve listings, pokes, 
news, nouvelles (d'amateurs), 
blagues, petites annonces, dos- 
siers (connaître OCP Art Studio, 
etc...) bidouilles pour les vies infi- 
nies et autres. Plus du délire con- 
densé (N'imporTnawaq). Son prix 
? 13,50 F (port compris) pour plus 
de 25 pages à ce jour. 

J'ai repris le texte de la lettre, 
car en fait je n'ai pas vu les 25 
pages, je n’en ai reçu que deux. 
Pourquoi n'ais-je eu droit qu'à un 
échantillon ? 




























Liberty 
70, chemin des bretoux 
95320 St Leu la forêt 
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SUPER QUIZZ ! D NAN CI 2 
CONSOLES MEGADRIVE À GAGNER 





ALLTEMLLE LA 
C D Cc D 


[TOP 20. 188/248 3 D CONSTRUCTION KIT 245/245 Q uand 





Licence to WII +P 47 +C.Chaplin ADIDAS CH. SOCCER 125/175 
+ Batty + Game over 2 + Ace 1 ADS . 185/225 

+ Mange cailloux +MLM 3D + Aspar GP ALIVE .195 UTILITAIRES 

+ Devil Castie + Hotshot + Shockway _ ARMALYTE 125/185 

Rider + Battle Valley + Buggy 2 ART DE LA GUERRE 245 ADVANCED OCP ART STUDIO. 
+ 3D Grand Prix + Grand Prix 500 + Rex B. CLOUGH EURO SOC 

+Zæ + Super Sky + Light force BACK THE GOLD AGE . ALLEMAND CONFIRME 4/36. 
COMPIL EXCEPTIONNELLE . 198/248 BACK TO THE FUTURE 3. ALLEMAND DEBUTANT 6/5e . 
Turbo Cup +Saplens +Skweek +Zox  BADLANDS . 97/145 COMPTABILITE ALIENOR ANGLAIS CONFIRME 4/3 . 
+ Maracaibo + Moblleman +Bumpy BAT. . 245 COURS DE SOLFEGE 1 ANGLAIS DEBUTANT 6/50. 









QI CLATLIATA 















220 CASE BOY 


‘. SOLAR STRIKER 
+ Cobra + Bactron +Algle d'Or +Kya  BATTLE COMMAND . 105/155 COURS DE SOLFEGE 2 DONALD ALPHABET MAGIQUE .145/195 GAME OT SOLOMAN'S CLUB 
HIT SPORT 196/248 BIG RUN 97/145 DESSIN TECHNIQUE 8128. ECRIRE SANS FAUTES V.1 6/ 220 SPACE INVADERS . 
Crary shot + Space Racer + Rally I! BOOLY 145/195 DESSIN TECHNIQUE TURBO 8128. 715 ECRIRE SANS FAUTES V.2 6/3e … 220 LIGHT BOY SPACE WARRIOR 





LABYRINTHE D'ORTHOPHUS 220 ALLEY WAY SPIDERMAN … 
+Tennis 3D + Turbo cup +Karateka  BOXING MANAGER 145/195 DISCBASE .. TITRE DORTIOPRU SPIDERMAN 
UP 188/225 BUILDER LAND 145/195 DISCOLOGY V. RALLOON 00 
145/195 FACTURES FACILES LABYRINTHE aux CENT CALCULS.. 220 BALLOON KID SUPER DEFORMER 
+ Rainbow Island +Altered Beast 105/145 FACTURATION + STOCK | LABYRINTHE aux MILLE CALCULS. 220 ETyaN SUPER MARIOEAND :: 
+X-out 155/225 GESTION DOMESTIQUE LABYRINTHE ANGLOMANIA 1 …… ji SSD GT DRE 
COIN oP HITS 2 148/108 LABYRINTHE ANGLOMANIA 2 s On OP à 
Dinasty wars + Ninja epirit LABYRINTHE LEXICOS 20 BOXXLE … AR ras 
+Vigilante + Gouls'n'ghosts +Hammerfiet 97/145 GRAPH MASTER LABYRINTHE DES PHA TEENAGE M.TURTLE NINJA 
MEGA MIX 148/225 . 195 GRAPHEUR LANGUE FRANÇAISE CE! . TENNIS 
Turican + Chase HQ 145/195 HERCULE 2 LANGUE FRANÇAISE CE2 . E ULTRAMAN CLUB . 
+ Shadow Warriors + Atered Beast 145/195 HOUSE MUSIC SYSTEM LANGUE FRANÇAISE CM1 VAM KIL/CAST VANIA 
SUPER SIM PACK 148/108 97/145 IMPRESSION. LANGUE FRANÇAISE CM2 VOLLEY FIRE . 
Snowstrike + Italy 90 EUROPEAN SUPER LEAGUE... 105/155 IMPRIM'IMAGE . LANGUE FRANÇAISE 6E ra en 
+ Heavy metal + Turbo out run EXTERMINATOR 125/165 INTEGRE (L') LANGUE FRANÇAISE SE à WORLD CUP SOCCER 
NRJ 2 182/240 125/155 INTERPRETE 2 LANGUE FRANÇAISE 4E ZOIDS 
Crazy car 2 + Shufflepuck café 145/195 KENTEL LE SE) LANGUE FRANÇAISE 3E “A { 
Mystical + Pinball Magic + Light corridor £ . 225 KWIKFILE NATHAN MATHS SE . CARTOUCHE GX4 
CHALLENGERS 162/280 ; 105/155 LA SOLUTION NATHAN MATHS 4E È 
Super ski + bomber + kickotf 145/195 MAXAM K7 ou disc a CONPOLE OX 4008 <, 
+ Stunt car racer + protennis tour GRAND PRIX 500CC 2 . 195 MAXAM rom … ss 
FESTIVALA 182/108 GOLDENAXE . 105/145 MENTEL minitei malin + câble NATHAN ECOLE FRANÇAIS CE2 229 BARBARIAN 2 
Great courts + Trial poursuit GUNBOAT 105/165 MEPHISTO . NATHAN ECOLE FRANÇAIS CM1 .. 220 DA MARIO BATMAN 
























































































































+S.Wonderboy +P47 + Action fighter  GUNSHIP. 195/245 MULTIFACE 2 pour CPC | NATHAN ECOLE FRANÇAIS CM2 . 220 DER TA 2 VOS 
Bia BANQ 2 128/182 HAGAR THE HORRIBLE 97/145 MULTIFACE 2 pour CPC PLUS NATHAN ECOLE MATHS CP/CE1 .. 220 ERA BASES 229 EPIC 
Rick Dangerous + Chicago HEROQUEST . 105/155 MUSIC PRO NATHAN ECOLE MATHS CE2 





229 FIRE AND FORGET 
+H. Patrol + Asphar + Beyond Ice P. 105/155 THE INSIDE NATHAN ECOLE MATHS CM1 KLAX 


82/2490 NATHAN ECOLE MATHS CM2 
tré south + Hostages : rs Res TRAIN EXPRESS DE DINGO … 145/195 
Tintin eur la une + Fire and forget J. KW.C. SQUASH 97/145 ROMDOS MICRO C 

+ Teenage queen JUDGE DREDD 97/145 ROMBOARD ALLEMAND PRIMAIRE 
LIVRET DE FAMILLE 245 KICK OFF 2. 135/169 PACK GESTIO ANGLAIS PRIMAIRE 
Manoir de Morteville + Troubadour LA SECTE NOIRE . . 175 PACK PRINTER 6128 ESPAGNOL PRIMAIRE 
+ Rody et Mastico LOOPZ . 105/145 PROTEXT K7 ou disc. ITALIEN PRIMAIRE 
CRAZY STARS 142/198 LOTUS ESPRIT TURBO 105/155 PROTEXT rom ANGLAIS 4/3e 
Crazy cars2 + Wildstroets MANCHESTER U. EUROPEAN. 105/155 PAGE PUBLISHER PAO CALCUL RAPIDE 


















229 NAVY SEALS 
189 NIGHT BREED 













. 199 GARGOYLE'QUEST . 
: 199 GHOST N GOBBLINS .…….……… 229 PANG 
‘199 GHOSTBUSTERS Il 229 PANZA KICK BOXING . 
199 GO GO TANK 229 PLOTTING 
; GREMLINS 2 229 PRO TENNIS TOUR 
229 ROBOCOP 2 
229 SWITCH BLADE 
























































































+ Cauldron 2 + Gazza MEGA PHOENX 97/145 PAGE PUBLISHER PICTURE DISC DECLIC LECTURE -. 199 TENNIS CUP 2 
LES CHEVALIERS 142/198 MERCS 145/195 PENTEL EDUC. MATERNELLE 1 . 199 
Dynasty Wars + Strider + Black Tiger METAL 145/195 PSYCHO EDUC. MATERNELLE 2 . 199 


Ghouls N'Ghoust MIDNIGHT RESIST, ‘ 97/145 SPRITES ALIVE . 
SEGA ARCADE TURBO. 142/198 MOKOWE . 195 TASWORD + MAIL MERGI 
Turbo outrun + Superwonderboy MOON BLASTER 145/195 TRAFFIC CB …... 



























170/199 





























Crackdown + Enduro Racer MULTISPORTS 105/155 TRAFFIC EMISSION . FRANÇAIS-CM … 170/199 JEOP 469 SCANNER DART DISC ou K7 
COLLECTION N° 2 22 NARC . 105/155 TRAFFIC SWL GEOGRAPHIE PRIMAIRE . . 199 229 DIGITALISEUR VIDI 
Dragon Ninja + Beach Volley NARCO POLICE 105/155 UTOPIA rom GEOMETRIE PLANE . 199 229 LECTEUR CASSETTE + CABLE... 245 


+Wec Le Mans +B.Bobble +Wonderbay NAVY SEAL: 105/155 HORLOGE ASTRALE GRAMMAIRE 6/5e 
+Arkanold 2 +Renegade + Match Day 2 NIGHT SHIFT . 105/155 MIROIR ASTRAL LECTURE CP … 
+ Basket Master + Super Sprint OUTBOARD 145/195 PORTRAIT ASTRAL MATHS 2E CYCLE 1. 
+ Flying Shark PANG . 105/155 LE TAROMANCIEN MATHS 2E CYCLE 2. 
STARS D'HOLLYWOOD.... 142/219 PANZA 95/245 GRAPHOLOG MATHS 3€... 
Batman +Indy Action +Ghostbusters 2  PICK'N PILE 155/195 

Robocop PINBALL MA 145/189 JOYSTICKS 
LES GHANTS DU SPORT 198/280 PLAYER MANAGER . 135/175 


. 199 
. 199 MALIBU BEACH 
199/250 MARUS MISSION 
170/199 MEGA MAN . 
170/199 MERCENARY 
170/199 MOTOCROSS MANIA 
170/199 MYSTERIUM 
170/199 NEMESIS .. 


175 MULTIFACE 2+LE COPIEUR PLUS. 525 
175 MULTIFACE 2+LE COPIEUR CPC. 495 
229 SYNTHE.VOCAL TMPI DISC/K7 …. 545 
229 SYNTHE.VOCAL TMPI4#HP DISC/K7. 625 
229 7 LOGICIEL Educt. vocaux 
175 DMP 3160 +PROTEXT . 

80 EXT. MEMOIRE _64K/464 
229 EXT. MEMOIRE 256K/61 21 











































































Kick off + Great courts + TT Race PLOTTING... 97/145 DOUBLEUR DE JOYSTICK. … 49 MATHS CE . 170/199 NFL FOOTBALL CRAYON OPTIQUE Cassette 

Foot Manager 2 + Emelyn Hugues PREDATOR 2 105/145 PHASOR ONE (+ MONTRE) 109 MATHS-CM. 199/250 Pr €. 220 CRAYON OPTIQUE Disquette 325 
Bobslelgh + 3D Grand Prix PRINCE OF PERS . 145/195 QUICKJOY JUNIOR 59 MATHS-CP. PACHINKO TIME . 175 

LES BATTANTS 182/238 R.B.I. 2 105/155 QUICKJOY 2... 75 ORTHO CM PAPERBOY 229 QUE) 


Rick Dangerous + Savage + Commando REVELATION 

Navy Moves +1. Warriors +F. Bruno Boxe RICK DANGEROUS II 
LES DIEUX DU CIEL 198/289 ROBOCOP II . 97/145 QUICKIOY 5 SUPERBOARD 
Chuck Yeager + Ace 182 +ATF ROLLER BALL . 195 QUICKIOY IR INFRAROUGE 
Stricke Force Harrier + Tomahawk SAGA .. . 195 QUICKJOY VI JETFIGHTER + 145 DESTINATION MATHS 6/5e SSSR DLOEUTTE 
CLAP CINE 1968/2580 SAINT + 275 4 SAISONS DE L'ECRIT CE/CM QUARTH 

Ghostbuster + Allen + Wonderboy S.C.I. Ê + 315 4 SAISONS DE L'ECRIT 6/3e R TYPE 
Back the future + Quartet +Eydolon +  SDAW Ê + 145 SECRET ENGLAND 6/5e …. RENJU 
C. Chaplin +Tuer n'est pas jouer + SHADOW DANCER 105/155 KONIX SPEED KING …. + 109 SECRET ENGLAND 4/3e … REVENGE GATOR 
Permis de tuer + Vivre et laisser mourir  SHERMAN M4 165/225 KONIX SPEED KING AUTOFIRE..... 129 DEUTSCHES GEHEIMNIS 6/5e ROLAN'S CURSE 
WHEELS OF FIRE 182/248 SIM CITY … 145/195 COMPETITION PRO . + 149 DEUTSCHES GEHEIMNIS 4/3e ROBOCOP 
Turbo out Run +Chase HQ SKULL + CRUSH BONES . 97/145 PRO 5000 … - 149 

Hard Drivin + Powerdrift SLIDERS … . 195 WICO THE BOSS 
18 MEGASTAR 182/280 SPIRIT OF EXCALIBUR. 105/155 WICO ERGOSTICK ORTHOGUS 2. 6/3e 
Navy moves + Exolon + Commando STAR CONTROL 105/165 WICO 3 WAY …. + 269 MATHEX CE/CM 
Battle valley +Bombjack +AIrWoï +1942 SUPERCAR: 05/145 MICRO CLUB 99 F MATHEX 6/5 
Scoobldoo + Ghost Goblins + Saboteur SUPER MO 105/155 MATHEX 4/3 
Battle ship + Bati + Buggy 2 + 105/145 MATHEX 6/3 


+ 135 SCIENCES PRIMAIRES. : PENGUIN WARS . 

99 GENERATION 5 PIPE DREAM … 
+ 192 DESTINAT. MATHS CE 1/2 .235 PLAY ACTION FOOTBAL 
+ 390 DESTINAT. MATHS CM 1/2 235 POWER MISSION 


185 CIMZEN 1200. 
229 CITIZEN SWIFT 24/ 
229 DMP 2000/2160. 
229 DMP 3000/3160. 
229 DMP 4000 
189 DMP1... 

229 EPSON LX 800/860/LQ500 . 
ie IMAGEWRITER I. 





































ELUD VTA SHANGHAI 
245 SIDE POCKET 
245 SKATE OR DIE 
245 SNOOPY .… 
SOCCERBAY 


4 SUPER PROM 





+ 169 ORTHOGUS 1. CM/6e 229 STAR NL10 | 


175 STAR LC10 . 



























Crépuscule Naja + Talleman d'Osiris 145/195 Uniquement en disquette PACK REVISION CE/CM | 
Es . 195 N°1 - ARKANOID 1 +2 PACK REVISION 6/5e . 
A.P.B. + Buggy Boy +TT Racer $ 97/145 Ne - UNIT es BlAErR y IMPRIMANTE DMP 3160 + PROTEXT 
e3 - + 
AconMonter + Atpar, Grand PR ñ “55/185 Ne - ENDRACER + SUPERHANG ON ML LC Me) ZT 08 20 ele 7: Y 4 ESA Un) 


LA SOLUTION rexTomaT + DATAMAT + CALCOMAT - 







MONDE DES MERVEILLES . 148/198 TENNIS CUP … . 162/195 N°5 - IK++VIE AR KUNG FU BOMMIER DS4OLA : 30x3" 














New Zeland Story + Rainbow Island THE SEARCH FOR SHARLA.... 125/165 N°6 - GRYSOR + GREEN BERET À » 
Super Wonderboy + Bubble Bobble 109/189 N°7 - CALIFORNIA + WINTER GAMES BOITIER JSY 48 48x3 ÉA LECTEUR CASSETTE + CABLE 
LES FOUS DU FOOT 178/228 TORTU 25/1865 N°8 - STREET FIGHTER + TIGER ROAD DST CT ONE MER le A'ACX RS RUES 


Kick off + Foot Manager 2 TOTAL RECALL . 105/155 N°9 - PLATOON + PREDATOR PORTRAIT ASTRAL ….. 
Figthing soccer + Emelyn Hugues TRACKSUIT MANA 97/145 N°10 - CRAZY CARS + SUPER SPRINT D AURUR NS DCE crc | 
LES JUSTICIERS 2 148/198 TURRICAN 2 . 105/155 N°11 - BUB.BOBBLE +FLYINGSHARK  DOUBLEUR DE BUS 
Ghostbusters 2 +Cabal +0. Thunderboit ULTIMATE GOL. . 145/175 N°12 - ACE OF ACES +INFILTRATOR CABLE IMPRIMANTE 
M OUSSES MORTE .167/148 NA TOP GUN + AP FIG RALLONGE ECRAN/CLANER 
WRATH OF THE DEMO 97/145 N°14 - TOP GUN + SLAP FLIGHT RALLONGE ECRAN/CLAVIER 
Housse complète claviertécran N°15 - ROLLING THUNDER +RYGAR CABLE EXTENSION JOYSTICK. 
HOUSSE 6128/464 PLUS N°16 - D. THOMPSON + SUPER TEST CABLE EXTENSION PORT 
HOUSSE 464 CPC 119 N°17 - MATCHDAY 2 +BASKET MASTER CABLE FDi/DDI1 
HOUSSE 6128 CPC . 189 N°18 - WONDERBOY +WIZZBALL SABLE FOTO 




















































HOUSSE DISC FD1/DDI 169 N°19 - QUARTET + RAMPAGE CABLE MIND Re - Disquettes certifiées 100% garantie à vie. 
HOUSSE DMP 2000/2180 149 N°20 - HYPERSPORTS +TRACKN FIELD CABLE PERITEL CPC Livrées avec enveloppes + étiquettes 
HOUSSE DMP 3000/3160 79 SUPPORT MONITEUR 139 N°21 - THUNDERBLADE + 1943 













: CABLE PERITEL PLUS 
HOUSSE PCW 8258/8512 29 MOUSE MAT (tapis). 65 N°22 - ROAD RUNNER +METROCROSS CABLE GX4000/CPC 6128 


HOUSSE CMZEN 120 D 179 MOUSE MAT lo ABLE @aoogiese 8138. 11e [BOITIER PLASTIQUE 3” ou 3.50". 32 F Les dix 





NOUS LIVRONS TOUJOURS LES DERNIERES VERSIONS 


BON DE COMMANDE £YPRE£ESS à retourner à 1 JESSICO - B.P 693 - 06012 NICE CEDEX 
GAGNEZ DU TEMPS | Commandez par 2 93,51,61,30 - 93.97,22,00 DÉTIENT EE OUTRE ERUREE LEE 














© Je joins un chèque ou mandat-lettre { 
© Je paie à réception au facteur + 25 F A 
© Je paie par carte bleue et je complète les 2 lignes ci-dessous o 
cañe Dieue im 
— 
date d'expiration . 
PORT : LOGICIEL JEUX 20 F NOM PRENOM KE 
IMPRIMANTES 60 F N° ET RUE 
ORDINATEUR 120 F 
UTILITAIRES + ACCESSOIRES 25.F RÉ ee For rosTa 


TS 
SIGNATURE OBLIGATOIRE 


DOM TOM + ETRANGER + 60 F 
PAIEMENT ETRANGER EXCLUSIVEMENT PAR MANDAT INTERNATIONAL BOURQUE AMCE PRELPNOON STARS DD: SOSEE TR RARNER 


GARANTIE 1 AN SUR LES LOGICIELS precisez votre ordinateur [7] DISC [1] Kk7 [] 
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ACTUALITE 


CDS SOFTWARE 


Vous qui aimez le foot, vous allez 
pouvoir vous défouler sur les écrans 
verts de vos CPC avec European 
Superleague. Mais attention, il n'est 
pas question de s'amuser à courir 
après une baballe. I! faut plutôt 
s'occuper du côté financier de la 
chose et se mettre dans la peau du 
manager d'une grande équipe 
européenne. Le choix des joueurs, 
les transferts, l'entraînement, les 
tactiques et toutes les opérations fi- 
nancières sont à votre charge, donc 
bon courage. 







































EXPOS 


Vous ne connaissez pas le «Su- 
pergames show» ? Ce n'est pas 
étonnant, puisqu'il s’agit de la pre- 
mière édition de cette exposition 
(organisée par notre confrère MI- 
cronews). Pour découvrir les mer- 
veilles des jeux électroniques, il suffi- 
ra de se présenter le 6 Décembre 
(enfin peut-être pas le 6 : ce sera 
une journée professionnelle) porte 
de Champerret pour entrer dans les 
lieux dédiés à l'électronique ludi- 
que. 

Normalement, ce sera l'occasion 
de rencontrer les éditeurs et tous les 
acteurs du secteur micro-informati- 
que à une période de l’année où 
les achats des fêtes ne sont pas en- 
core effectués. 

Dans un registre moins ludique, 
voici le salon Micro & Co. Sa voca- 
tion est de rassembler divers pas- 
sionnés de micro. Ainsi, durant les 4 
journées du salon, un thème diffé- 
rent sera abordé : Technique et bu- 
reau, arcade, l'espace créativité et 
la foire aux affaires. Ce salon est 
organisé avec le concours de la so- 
ciété Pressimage et aura lieu au 
Parc des expositions de Paris, Porte 
de Versailles, les 18, 19, 20 et 21 oc- 
tobre 1991. 


ACTUALITE 


Lankhor devient le spécialiste 
des jeux d'aventures sur CPC puis- 
qu'après Alive et Le Fugitif, deux 
nouvelles histoires vont bientôt trou- 
ver place dans les douillets circuits 
de votre machine préférée. Le pre- 
mier est intitulé : le trésor d'Ali Gator. 


[æe | 


L 
ALT Carre y 
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LANKHOR 






































Les habitués des listings de CPC 
auront certainement reconnu ce 
nom et deviné alors l'auteur : il s'agit 
bien sûr de Claude Le Moullec. Dans 
un château mystérieux pétris de la- 
byrinthes aux portes aléatoirement 
closes, vous devez retrouver un tré- 
sor en vous aidant de divers élé- 
ments, bouteilles, livres, clefs et 
autres objets. 


Autre aventure bientôt disponi- 
ble : infernal House qui promet de 
vous donner des frissons dans une 
étrange demeure, à l'origine de 
nombreuses disparitions, dont celle 
de votre petite amie. Cela vous en- 
couragera à mener vos recherches 
tambour battant parmi les diverses 
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TITUS 


On retourne à l'ère préhistorique 
avec un personnage fruste et plein 
de poils ( voir la couverture). La 
principale préoccupation de cette 
époque, et la mienne, est bien en- 
tendue la recherche de nourriture. 
Dans un décor luxuriant, le sympa- 
thique Grawagars, massue à la 
main, quête le moindre bout de 
graillon et bastonne accessoire- 
ment, mais d'une main décidée la 
faune pas câline. La version CPC 
de Préhistorik n'est pas encore pré- 
te mais elle promet beaucoup avec 
des graphismes colorés et une ac- 
tion «cartoonesque». 


Puisque nous sommes dans le 
dessin animé, restons-ÿy avec la 
bande à Picsou, célèbre personna- 
ge Disneyien. La préoccupation 
actuelle de notre héros est de de- 
venir le canard de l'année. Ce défi, 
lancé par son pire ennemi, Flairsou 
est à l'origine des aventures épiques 
de Picsou et de ses neveux. Explo- 
ration de la jungle, safari photo et 
pilotage de biplan sont au pro- 
gramme. 


pièces et surtout les passages se- 
crets que recèlent la maison. 








Décidemment, le foot revient en 
force avec Euro Football Champ de 
chez Taito. La compagnie japonai- 
se a signé avec Domark pour 
l'adaptation du célèbre jeu d'ar- 
cade et vous devriez blentôt pour- 
voir vous excercer sur les pelouses 
électronique. 


DOMARK 


La vitesse toujours et les joies 
nautiques en prime, tel est le menu 
alléchant de Hydra. Dans votre pe- 
tit bateau, vous devez échapper à 
différents éléments hostiles, Pourquoi 
tant de haine ? Eh blen, voyez-vous, 
vous êtes une sorte de transporteur 
pour services secrets et Un tas de 





vilains ne demandent pas mieux 
que de s'emparer de votre précieux 
chargement. Vous vous doutez 
donc que vos traversées seront loin 
d'être paisibles. 





OCEAN 


Autre adaptation de jeu d'arca- 
de à succés : Narc. On se doute 
bien qu'avec ce titre, il ne s’agit 
pas de traiter de la cueillette des 
olives. Une fois de plus, les méfaits 
d'un caïd de la drogue vous forcent 
à sortir de votre tanière et à faire 
jouer vos arguments percutants : 
mitrailleuse lourde et muscles 
d'acier. Le tout possède des imar- 
ges digitalisées en présentation et 
une certaine dose d'action. Tous 
ces éléments seront indispensables 
pour venir à bout du chef de la pè- 
gre : Mr Big. 


TRUCS POUR L'EXPLOITATION 
DE DISQUETTES A FORMATAGE SPECIAL 
EN LECTEUR A OÙ B 


Valable pour CPC 464+DDI - 664 - 6128 


Les possesseurs de CPC se sont vus de multiples fois proposer dans le 
commerce ou dans des revues des utilitaires de formatage pour augmenter la 
capacité des disquettes. 


et 41. Un autre est d’avoir 10 secteurs par piste, 

ce qui donne pour 42 pistes (00-41) 210 KO de 
capacité. Le problème est que bien souvent, dès qu'il 
s'agit de faire tourner des programmes sur de telles 
disquettes, rlen ne va plus. À coup sûr on obtient un 
«read fall», quand ce n'est pas Un renvol pour le lec- 
teur A alors qu'on travaillait sur le B: «Drive A: disc 
missing». L'objet de cet article est d'aider à résoudre 
de tels problèmes. 


L e truc le plus simple est déjà d'utiliser les pistes 40 


AVERTISSEMENT 


On aura d'autant plus de chances de résoudre tous 
ses problèmes, et même avant de comprendre l’en- 
semble de l'article (rapidement), que l'on est familier 
du langage d'assemblage 780 et du système d'exploi- 
tation des CPCs. Néanmoins le maximum a été fait 
pour que même un néophyte, sinon un ignorant de 
ces choses, puisse obtenir de bons résultats. Pour cela, 
les programmes proposés sont là. 


PROBLEME OÙ PAS ? 


Examinons les différents cas de figures, pour détermi- 
ner lesquels permettent Une exploitation sans problè- 
me d'une disquette au format spécial et lesquels né- 
cessitent du bidoulllage (logiciel). Au départ on a une 
disquette au format spécial dans le lecteur A où B. On 
a dû lancer un petit programme BASIC ou choisir une 
option dans un quelconque utilitaire, qui permet au 
CPC de reconnaître le nouveau format. Jusqu'ici tout 
va bien. Ensuite on lance : 

- Un programme BASIC : si ce programme ne réinitiall- 
se pas le système de disque du CPC, alors il ne doit y 
avoir aucune difficulté à exploiter la disquette comme 
une disquette normale : 

— Un programme en langage machine : si on a chargé 
ce programme par un LOAD et qu'on l'exécute ensui- 
te (évidemment) par un CALL et que ce programme 
n'a pas à accéder ultérieurement à la disquette, alors 
pas de problème non plus. De même si on a lancé ce 
programme par un RUN et qu'il n'effectue pas ensuite 
d'accès au disque. Par contre s’il doit effectuer des 
opérations sur disque (chargement, sauvegarde), alors 
on est assuré d'avoir des problèmes, car il doit aupa- 
ravant réinitialiser le système disque. 


Le lecteur attentif aura deviné la source de tous les 
maux : la réinitialisation du système disque. Celle-ci ne 
s'opère qu'en langage machine. Elle est facultative 
quand on travaille sous BASIC et indispensable quand 
on a lancé un programme en Langage Machine 
(qu'on désignera désormais par LM) avec RUN et qu'il 
doit accéder au disque. 


QHND ET POURQUOI 
EINITIALISER LE SYSTEME DISQUE ? 


Quand on lance un programme en LM par RUN, le 
système d'exploitation du CPC fait un appel à une 
routine qui remet en quelque sorte l’ordinateur à zéro, 
si bien qu'il en «oublie» même qu'il pouvait y avoir un 
lecteur de disquette connecté. Pour qu'un lecteur 
puisse être à nouveau employé, Il faut réinitialiser le 
système disque, c'est-à-dire en faire effectuer la re- 
connaissance de présence par le CPC. On parlera 
désormais pour système disque de DOS (de l'anglais 
Disk Operating System = «Système Opératoire de Dis- 
que», d'où le nom du DOS du CPC : AMSDOS pour 
AMStrad DOS), histoire d'utiliser un terme consacré. 
Un programme en LM chargé par un LOAD et exécuté 
par un CALL peut aussi nécessiter de réinstaller le DOS, 
car certains programmes procèdent à une remise à 
zéro du CPC. Le résultat est le même qu'avec un RUN. 
Un programme en BASIC peut avoir besoin de loger 
ailleurs la partie de la mémoire vive réservée au DOS 
(un possesseur de CPC 464 avec lecteur un peu cu- 
rleux aura remarqué que le HIMEM passe de 43903 
sans lecteur à 42619 avec. Les 1284 octets manquants 
sont presque entièrement utilisés par le DOS). Dans ce 
cas Il y a encore réinitialisation du DOS. 


LES ROUTINES DU CPC EN CAUSE 


On va ici examiner les routines du système d'exploita- 
tion du CPC, qui nous concernent, à savoir la remise à 
zéro du CPC et la réinitialisation du DOS. La terminolo- 
gie employée est celle de la BIBLE du CPC, qui est 
celle standard. Ces routines ont appelées via des vec- 
teurs de saut, à adresse fixe pour tous les CPCSs, ce qui 
permet la compatibilité entre 464, 664 et 6128. C'est à 


l'adresse de ces vecteurs qu'il est fait référence dans 
la suite. 


MC BOOT PROGRAM (&BD13) : remet à zéro le CPC. 
Cette routine est employée lors du lancement d'un 


programme. Pour un programme en BASIC, la main 
est transmise à l'interpréteur BASIC et le DOS n'est pas 
touché (sinon, même pour les formatages normaux, il 
faudrait réinitialiser le DOS après chaque chargement). 
Par contre pour un programme en LM, la main est 
transmise à la routine suivante, avec les conséquen- 
ces que l’on va voir. 

MC START PROGRAM (&BD16) : réinitialise le CPC et 
déconnecte toute périphérie (Attention : dans la ter- 
minologie propre au CPC, une initialisation est plus 
poussée qu'une remise à zéro. Celle-ci laisse certains 
paramètres Intacts tandis que celle-là ramène com- 
me à l'allumage de l'ordinateur). Il y a finalement saut 
à une adresse. Le fait important ici est que, la périphé- 
rie étant déconnectée et le lecteur de disquette en 
faisant partie, pour accéder de nouveau au disque. il 
faudra auparavant réinitialiser le DOS. Le fait gênant 
est que tous les vecteurs originaux sont restaurés (cf 
JUMP RESTORE). 

KL INIT BACK (&BCCE) : initialise une ROM (de l'anglais 
Read Only Memory = Mémoire Seulement Lisible, soit 
en français Mémoire Morte, que l'on peut trouver en- 
core parfois dans la littérature sous l'abréviation MEM, 
opposée à MEV pour MEmoire Vive) de second plan. 
A l'origine le CPC n’a qu'une ROM de premier plan, la 
ROM BASIC. Les autres ROMSs rajoutées par des exten- 
sions sont (en général) des ROMs de second plan, 
comme celle du lecteur de disquette. Les ROMS de 
second plan font partie de la périphérie. C'est à cette 
routine qu'il est le plus couramment fait appel pour 
réinitialiser le DOS. 

KL ROM WALK (&BCCD) : trouve et initialise toutes les 
ROMs de second plan. A la différence de la précé- 
dente routine, celle-ci n’a pas besoin qu'on lui indi- 
que un numéro de ROM. Elle commence cependant 
sa recherche par la ROM du lecteur de disque. Com- 
me très souvent elle est la seule ROM de second plan, 
le résultat est le même qu'avec un INIT BACK. 

JUMP RESTORE (&BD37) : initialise tous les vecteurs de 
sauts (dont font partie les 4 précédents), ce qui signifie 
que ce JUMP RESTORE restaure les valeurs originales 
des vecteurs de saut. Done si on veut en détourner 
quelques-uns, et que l'on veut être à coup sûr prému- 
ni contre ce JUMP RESTORE, il faut veiller à le détour- 
ner lui-même. 


SYNTAXE DES ROUTINES 


ll s'agit ici de la description d'utilisation des routines 
évoquées, quand c'est nécessaire, en langage d'as- 
semblage 780. À ceux qui n'y connaissent rien, cela 
restera abstrus, quant aux autres, cela fera une petite 
révision. Les nombres sont indiqués directement en 
héxadécimal, la seule base, avec le binaire, qui se 
respecte en LM. 

MC BOOT PROGRAM : je ne l'ai jamais vu employé par 
quelqu'un d'autre que le système d'exploitation ou 
l'interpréteur BASIC. Sa description est sans intérêt dans 
le cadre de cet article. 


MC START PROGRAM: LD C,n 


LD HL.dd 
CALL BD16 (ou JP BD16) 


- N est un code de configuration mémoire, qui 
d'termine quelles RAMs ou ROMSs sont sélectionnées. 
Presque toujours on utilise FF, ce qui fait que la totalité 
de la mémoire vive (que l'on désignera dorénavant 
par le terme anglais RAM - Random Access Memory = 
Mémoire à Accès Aléatoire ou Read And Modify Me- 
mory = Mémoire Lisible et Modifiable) est adressable 
de 0000 à FFFF. 


- dd est l'adresse de saut après l'éxécution de la routi- 
ne. 


KL INIT BACK: LD HL.dd1 
LD DE.dd2 
LD Cn 
CALL BCCE 


- ddl est le haut de la RAM disponible dont la ROM à 
installer peut disposer. Inversement dd2 est le bas de 
la RAM disponible. 

- nest le numéro de la ROM. Pour le lecteur de dis- 
quette c'est O7. 


Au retour de la routine, HL et DE contiennent les nou- 
velles valeurs pour la RAM disponible. En ce qui con- 
cerne le système disque, seuls les 1284 octets supé- 
rieurs sont utilisés, si bien que seul ddl est modifié. En 
général, on indique 0040 pour dd2. On reviendra au 
chapitre suivant en détail sur les conséquences de 
l'appel de cette routine ou de la suivante. 


KL ROM WALK: LD HL.dd1 
LD DE,dda2 
CALL BCCB 


- ddl et dd2 ont la même signification que pour KL 
INIT BACK et sont semblablement modifiés. Cette rou- 
tine se contente en fait d'appeler la précédente, en 
ajoutant évidemment le numéro de la ROM. Il n'y a 
donc pas de surprise sur son fonctionnement dès qu'on 
a compris celui INIT BACK. 


JUMP RESTORE : CALL BD37 


- On ne peut pas rêver plus simple | 


LA RAM AFFECTEE AU DOS 


Le DOS a besoin d'un peu de place en RAM pour 
travailler. On ne va pas décrire ici l'ensemble de cette 
RAM dédiée au DOS mais seulement les parties néces- 
saires aux bidouillages pour exploiter des disquettes 
en formats spéciaux. 

- Le DOS s'est vu attribuer par les concepteurs du 
logiciel une zone fixe en mémoire, qui est aussi la 
même sous CP/M (en fait l'AMSDOS a été conçu pour 
une compatibilité maximale avec le CP/M). Cette zone 
va de BE40 à BE7F. L'Information qui nous intéresse ici 
est située en BE7D. Là est stockée l'adresse (donc sur 2 
octets) de départ de la RAM dédiée au DOS (les 1284 
octets dont on a déjà parlé). Pour abréger par la 
suite, on parlera de «RAMDOS», qu'on se le dise | Pour 
résumer, en BE7D se trouve un pointeur sur le départ 
de la RAMDOS. 


— La RAMDOS débute par 3 octets extrêmement inté- 
ressants, qui sont dans l'ordre : 

1) le lecteur appelé (0 pour A et 1 pour B) 

2) le user appelé 

3) le lecteur actif 

Lorsqu'une tentative de mise sur un lecteur a réussi, le 
lecteur actif est le même que l'appelé. Quand tout 
marche, c'est le cas et on fera donc comme si c'était 
le cas. Si on veut continuer à travailler avec un forma- 
tage spécial avec les lecteurs et users de son choix 
malgré une réinitialisation de DOS, il faudra veiller à 
rétablir ces 3 octets dans leur état avant l'appel de 
ROM WALK ou INIT BACK. En effet, en cas de réinitiali- 
sation normale du DOS, on se retrouve d'une part 
d'office en lecteur A et sous USER 0, et d'autre part, le 
DOS ne reconnaît plus que les formats habituels. Cette 
dernière constatation permet de faire la transition avec 
la suite. 

— Pour l'exploitation d'un formatage quelconque de 
disquette, l'AMSDOS ne requiert que 25 octets seule- 
ment Ces 25 octets, qui correspondent à 19 paramè- 
tres et que nous allons bientôt détailler, indiquent la 
capacité disc, la taille des blocs, celle du directory, le 
nombre d'entrées dans celui-ci, les numéros de sec- 
teurs, etc. Ils constituent le Bloc de Paramètres Disc, 
Disk Parameter Block en anglais, que l'on désignera 
par DPB. Comme l'AMSDOS peut travailler avec 2 lec- 
teurs, il y a 2 DPBs, le DPB A et le DPB B. L'AMSDOS 
accède aux DPBs par l'intermédiaire de 2 pointeurs, 
qui indiquent donc les adresses des DPBs. Si la RAMDOS 
est située à l'adresse dd, alors on trouve le : 

e pointeur de DPB A en dd+021A 

e pointeur de DPB B en dd+022A 

Lors d'une initialisation de DOS, les 2 DPBs sont remis 
aux paramètres standards du format System (recopiés 
depuis la ROM DISC). Pour exploiter une disquette en 
format spécial, Il faut donc installer le DPB propre à ce 
format. 

On a déjà tous les éléments en main pour imaginer 
une méthode d'exploitation de disquette en format 
spécial, malgré une réinitialisation de DOS. Rappelons 
d'abord les zones vitales de la RAM : 

BE7D : pointeur sur le départ de RAMDOS ou son 
adresse, ad. 

ad+0000 : lecteur appelé 

ad+0001 : user appelé 

ad+0002 : lecteur actif 

ad+021A : pointeur sur le DPB de lecteur A 

ad+022A : pointeur sur le DPB de lecteur B 

La méthode choisie et qui sera mise en œuvre de 
diverses manières dans les programmes de démons- 
tration, surtout selon les capacités de programmation 
de chacun, sera la suivante : 

1) déterminer l'adresse de la RAMDOS 

2) stocker le lecteur et le user courants 

3) en fonction du lecteur actif, déterminer l'adresse 
de son DPB 

4) stocker le DPB du lecteur actif 

5) réinitialiser le DOS 

6) déterminer la nouvelle adresse de la RAMDOS 

7) restaurer à cette adresse les lecteur et user actifs 

8) en fonction du lecteur actif, trouver le pointeur de 
son DPB 

9) remplacer ce pointeur par l'adresse de stockage 
du DPB original 


ll est plus rapide de modifier simplement un pointeur 
de DPB que de reloger un DPB. Cela réduit le nombre 
d'opérations. Autant s'épargner du travail inutile. 

On a maintenant les connaissances nécessaires et suf- 
fisantes à la réalisation de notre entreprise, ainsi que la 
méthode à employer. Avant de se lancer dans la des- 
cription plus ou moins approfondie des différents pro- 
grammes qui mettent tout ceci en application, on va 
s'offrir une petite récréation avec la description dé- 
taillée d'un DPB, ce qui ouvrira peut-être à certains de 
nouveaux horizons (pour concevoir des formatages 
personnalisés par exemple). 


DESCRIPTION D'UN DPB 


On a déjà évoqué la compatibilité maximale entre 
l'AMSDOS et le CP/M. C'est ainsi que les DPBs sont 
directement issus du monde du CP/M. Les DPBs de 
l'AMSDOS ne sont rien d'autre que des DPBs CP/M, 
pour les 15 premiers octets, qui correspondent à 9 
paramètres. On peut donc rechercher leur descrip- 
tion dans un livre dédié au CP/M : c'est valable pour 
le CPC comme pour n'importe quel ordinateur dont le 
système d'exploitation est le CP/M. Leur fonction est 
purement logique et décrit l'organisation des données 
sur la disquette. Complémentairement, les 10 octets 
suivants, spécifiques des CPCs, décrivent la structure 
physique de la disquette : ils font partie des paramè- 
tres FDC (Floppy Disc Controler = Contrôleur de Disque 
Souple, c'est-à-dire disquette). 

Voyons d'abord un tableau de ce DPB, avec la termi- 
nologie en vigueur : 








adresse NOM faille description très sommaire 

0000 SPT 0002 nb de secteurs logiques par piste 
0002 BSH 0001 décalage de bloc 

0003 BLM 0001 masque de bloc 

0004 EXM 0001 masque d'incrément 

0005 DSM 0002 nb maxi de blocs 

0007 DRM 0002 nb maxi d'entrées au catalogue 
0009 ALO, ALT 0002 taille du catalogue en binaire 
000B CKS 0002 nb d'entrées catalogue à vérifier 
000D OFF 0002 décalage de piste 

O00F FSC 0001 numéro physique du ler secteur 
0010 PST 0001 nb de secteurs par pistes 

0011 GLS 0001 GAP 3 pour lecture/écriture 

0012 GLT 0001 GAP 3 pour formatage 

0013 FLB 0001  octet de remplissage pour formatage 
0014 BPS 0001 taille de secteur codée 

0015 RPS 0001 nb d'enregistrements par secteur 
0016 BCT 0001 buffer piste actuelle (DOS) 

0017 FTO 0001 indicateur d'alignement (DOS) 
0018 FLG ” 0001 indicateur de sélection de format 


Voyons maintenant plus en détail la signification de 
ces valeurs : 

— SPT (Sectors Per Track = secteurs par piste) : c'est le 
nombre de secteurs logiques de 128 octets contenus 
sur une piste. Pourquoi 128 octets ? Pour des raisons 
historiques ! A l'origine le CP/M travaillait avec des 
secteurs physiques de 128 octets. Les modèles ulté- 
rieurs de lecteurs de disquette permettant d'utiliser 
des secteurs d'une autre taille, on a cependant con- 
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servé ce découpage virtuel en secteurs de 128 octets 
(qu'on appelle encore parfois enregistrements) d'une 
piste pour des raisons compréhensibles de compatibi- 
lité. Ceci explique la dénomination «secteur logique», 
par opposition à physique. Ainsi en format Data, on a 
9 secteurs de 512 octets par piste, ce qui donne un 
SPT de 36 = 9°512/128. Après cette description des 
valeurs, on en donnera des tableaux pour les formats 
standards et d'autres plus exotiques. Les curieux de la 
disquette, qui se sont un jour intéressés à la structure 
du catalogue (ou directory en anglais, ou répertoitre 
dans une traduction fidèle), ont pu remarquer en 16e 
position d'une entrée une valeur plafonnant à &80. 
C'est la taille du fichier de l'entrée en blocs de 128 
octets. En standard une entrée correspond à 16 blocs 
de 1 KO au maximum. D'où on retrouve bien : 16*1024/ 
128 = 128 = &80, Ceci est très Important, car même en 
travaillant avec de blocs de 4 KO, on peut connaître 
la taille d'un fichier à moins de 128 octets près. Mathé- 
matiquement on a : SPT=PST"2ARPS 

- BSH (Block SHift = décalage de bloc) : c'est (atten- 
tion Il faut être à première vue matheux) le logarithme 
en base 2 du nombre de secteurs logiques, donc de 
128 octets, par bloc. Ceci sera beaucoup plus clair 
dans quelques instants. Le bloc, dont il a été question 
pour le SPT, est la taille minimale occupée par un 
fichier sur la disquette. Sous AMSDOS c'est 1 KO. Même 
pour sauver un seul octet, 2 secteurs de 512 octets 
sont employés. Soit donc TB la taille en octets d’un 
bloc. On a alors : TB = 128*2ABSH, En format standard 
on à : 1024 = 128*243, donc le BSH vaut 3. Mathémati- 
quement on a : BSH=LOG(TB/128)/LOG(2) 

- BLM (BLock Mask = masque de bloc) : c'est le nom- 
bre de secteurs logiques par bloc, moins 1. En stan- 
dard, on a des blocs de 1 KO, soit 8 secteurs logiques, 
d'où le BLM est 7 = 8-1. Mathématiquement on a : 
BLM=2ABSH-1 

- EXM (EXtend Mask = masque supplémentaire) : c'est 
une extension au masque fonction de la taille d'un 
bloc et du nombre de blocs sur la disquette. C'est 
égal au nombre maximum d'incréments sur un FCB 
moins un. Explicitons : un FCB est un File Control Block, 
c'est-à-dire un Bloc de Contrôle de Fichier. Il s'agit 
d'une entrée au catalogue, déjà évoquée pour le 
SPT. Une entrée, ou donc un FCB, est composée de 32 
octets, les 16 premiers pour le user, le nom, Un numéro 
d'extension pour les fichiers nécessitant plus d'une en- 
trée, et la faille en blocs de 128 octets. Les 16 restant 
sont les numéros des blocs du disque occupés par le 
fichier. L'incrément est la taille maximale d'un fichier 
tenant sur Un FCB, dans le cas le plus défavorable de 
formatage. Or le CP/M, ou l'AMSDOS, peut travailler 
avec des secteurs de 128 octets. Le 16e octet, qui 
donne la taille du fichier, nous limite donc à 16 KO, 32 
KO n'étant pas exprimable sur un octet : 32*1024/ 
128=256=& 100, L'incrément vaut donc 16 KO (N.B.: ceci 
n'est vrai en fait que pour les «petits» disques, pour 
lesquels on ne peut gérer que moins de 256 blocs. Au- 
delà on parle de «grands» disques et l'incrément est de 
32 KO). En standard on a 16 KO par entrée au maxli- 
mum, soit 1 iIncrément, donc le masque d'extension 
vaut 0=1-1. Mathématiquement on a : EXM=nb maxi 
incréments par FCB-1. 

- DSM (Disk Storage Mask = masque de stockage du 
disque) : C'est le numéro du dernier bloc du disque, 


où, la numérotation commençant à 0, la capacité de 
la disquette moins 1. En format SYSTEM, cette Valeur 
est 170 = &AA. Le bloc 0 est le premier bloc réservé au 
répertoire. Tous les blocs potentiellement en amont de 
ce bloc sont ignorés, comme pour les 2 pistes dites 
«système», réservées au CP/M. Voir à ce propos la 
description de OFF. Donc DSM est le numéro du der- 
nier bloc ou la capacité totale de la disquette, direc- 
tory y compris, moins 1. 

- DRM (Disk Repertory Mask = masque de répertoire 
du disque) : c'est le nombre d'entrées au catalogue, 
moins 1, ou le numéro de la dernière entrée, en débu- 
tant à 0. On a déjà vu qu'une entrée est longue de 32 
octets. Dans les formats standards on a 2 KO de direc- 
tory, d'où un nombre d'entrées de 64 = 2*1024/32. On 
obtient donc 683. 

- ALO, ALT (Allocation 0, Allocation 1) : ces deux va- 
leurs expriment les blocs occupés par le catalogue. Il 
faut exprimer ALO et ALT, dans cet ordre, en binaire sur 
8 bits : 1 bit correspond alors à 1 bloc et la lecture se 
fait naturellement de gauche à droite : le bit 7, soit de 
plus fort poids ou MSB en anglais (Most Significant Bit = 
Bit le Plus Signiflcatif) de ALO correspond au premier 
bloc et le bit O, soit de plus faible poids où LSB en 
anglais (Less Significant Bit = Bit le Moins Significatif), 
de ALI au dernier bloc. Un bit mis (à 1) signifie que le 
bloc correspondant appartient au directory. En for- 
mat standard on a 2 blocs de réservés pour le directo- 
ry. Ecrivons le en binaire sur 8 bits: 

1100 0000, 0000 0000 soit en héxadécimal CO,00, 


ALO , ALI 


La taille TC du catalogue, exprimée évidemment en 
blocs, se déduit du nombre d'entrées et de la taille 
d'un bloc. En standard on a 64 entrées et des blocs 
de 1 KO, d'où 32*64/1024 = 2 KO de répertoire. Ma- 
thématiquement on a : TC=(DRM+1)/4/2ABSH 

— CKS (CHecked Sectors = secteurs vérifiés) : c'est le 
nombre de secteurs logiques du répertoire à vérifier 
avant toute opération d'écriture. Ainsi avant d'écrire 
un nouveau fichier, il faut vérifier qu'il reste assez de 
place sur le disque et qu'il n'existe pas de fichier por- 
tant déjà le même nom, auquel cas il faut se livrer à 
des opérations supplémentaires. En standard on a 64 
entrées (de 32 octets), donc CKS vaut 16 = 64*32/128. 
Mathématiquement on a : CKS=(DRM+1)/4 

- OFF (OFFset = décalage) : il s'agit simplement du 
nombre de pistes réservées au système, où bien à 
ignorer avant que ne débute la partie de la disquette 
exploitée par le DOS pour le stockage de données. En 
format System OFF vaut 2, les 2 premières pistes étant 
employées par le CP/M. On peut aussi utiliser ce para- 
mètre pour diviser une disquette «physique» en plu- 
sieurs disquettes «logiques». Par exemple il existe des 
lecteurs 80 pistes, qui avec un formatage de 10 sec- 
teurs de 512 octets offrent par face physique 400 KO 
de capacité de stockage. Pour exploiter un tel volu- 
me on recourt à des blocs de 2 KO. Or l'AMSDOS ne 
gère pas correctement de tels blocs (alors que le CP/ 
M sait le faire). Il en résulte que beaucoup de charge- 
ments aboutissent à des plantages. Il faut donc revenir 
à des blocs de 1 KO. Seulement le DOS ne peut tra- 
valller qu'avec au plus 255 blocs. L'astuce est de divi- 
ser une face physique de 400 KO en 2 faces logiques 


de 200 KO. Pour la lère le décalage OFF vaut 00 
tandis que pour la seconde Il vaut 40. On commute 
aisément d'une face à l’autre en mettant OFF à la 
valeur convenable, ce par un simple POKE sous BASIC. 
Ce décalage est également très utile pour une dis- 
quette à format spécial, totalement Incompatible 
avec les formats standards. Si toutes les pistes sont 
dans ce format, il faut lancer un utilitaire d'implanta- 
tion du DBP depuis une autre disquette, ce qui est 
contraignant. L'astuce est de formater la première 
piste en Data et les autres comme on le veut. Sur les 2 
KO disponibles sur cette première piste, on a large- 
ment la place pour Installer un utilitaire d'implantation 
de DPB. Le décalage pour le reste des pistes en format 
spécial est de 1. Il en sera donné un exemple dans les 
tableaux de DPBs à la fin de ce chapitre. 


Jusqu'ici les paramètres relevaient du monde du CP/ 
M et les explications étaient Valables pour toute ma- 
chine CP/M. Désormais on a affaire à des paramètres 
du FDC, spécifiques au CPC. 


— FSC (First SeCtor = premier secteur) : c'est le numéro 
physique du premier secteur de chaque piste. On use 
du qualificatif «physique» car il s'agit du numéro etf- 
fectivement écrit sur la disquette pour identifier le pre- 
mier secteur, En System c'est &41 et en Data &C1. 

- PST (Physical Sectors per Track = secteurs physiques 
par piste) : c'est le nombre de secteurs physiques par 
piste, soit 9 en System ou Data. 

- GLS (Gap Length for Sector = longueur de Gap pour 
secteur) : c'est la longueur du Gap pour les opéra- 
tions de lecture et écriture. Qu'est-ce qu'un Gap sur 
une disquette ? C'est tout simplement un blanc (gap 
veut dire brèche en anglais). Il ne faut pas oublier que 
les lecteurs de disquettes sont avant toutes choses des 
machines mécaniques, donc soumises à des toléran- 
ces. Ainsi, à partir d'une certaine décimale, il n'y a 
pas deux lecteurs de disquette qui aient la même 
vitesse de rotation de disque. Un même lecteur peut 
voir sa vitesse varier en fonction des conditions am- 
blantes, sinon tout simplement de l'âge. Les Gaps sont 
là pour que ces variations, quoi qu'il en soit relative- 
ment infimes en cas de bon fonctionnement, ne créent 
aucun problème. Ils établissent des zones de sécurité, 
espèces de «no man's lands» entre les zones de don- 
nées, en séparant les secteurs et les pistes. Le GLS est 
le Gap pris en compte en lecture où écriture de sec- 
teur. Il est aussi appelé GAP 3 dans la littérature spé- 
cialisée. Il est situé après les secteurs. Pour les formats 
standards Il vaut &2A. 

- GLT (Gap Length for Track = longueur de Gap pour 
piste) : c'est la longueur du Gap employée lors du 
formatage d'une piste. Ce Gap est le même physi- 
quement que le précédent. Seulement cette valeur 
n'est utillsée que lors du formatage d'une piste. Nor- 
malement le GLS doit être plus petit que ce GLT, afin 
que les nouveaux Gaps 3 dûs aux opérations d'écritu- 
re (de longueur GLS), ne «débordent» pas au delà du 
Gap 3 résultant du formatage. On a d'autant moins 
de risques d'avoir des problèmes de recouvrement de 
données par un Gap 3, que la différence entre GLT et 
GLS est grande. Pour les formats standards le GLT vaut 
&52. Cela représente presque le double de GLS : la 
marge de sécurité est excellente. 


- FLB (FiLL Byte = octet de remplissage) : c'est l'octet 
utilisé pour remplir les secteurs lors d'un formatage de 
piste. Pour les formats standards, il s’agit de &ES5. 

- BPS (Bytes Per Sectors = octets par secteurs) : c'est 
de façon «codée», afin que l'information tienne sur un 
octet, la longueur en octets d’un secteur. Pour con- 
naître la longueur d'un secteur, il suffit d'employer 
cette formule »l» étant la longueur : 1=128"2ABPS. C'est 
cette Valeur qui est en fait directement envoyée au 
FDC lors du formatage de piste pour indiquer la lon- 
gueur d'un secteur. Pour les formats standards on a 
512 octets par secteurs, or 512=128"2A2, donc BPS vaut 
2. 

— RPS (Records Per Sector = enregistrements par sec- 
teur) : c'est le nombre de secteurs logiques par sec- 
teur physique : plus prosaïquement c'est la taille d'un 
secteur en octets divisée par 128. Mathématiquement 
on a : RPS=2ABPS. 

- BCT (Buffer for Current Track = mémoire pour piste 
courante) : c'est une sorte de mémoire pour stocker 
le numéro de la piste actuellement en service. C'est 
une des 2 valeurs variables du DPB sans intervention 
de l'utillsateur. Elle est utilisée exclusivement par le 
DOS et donc n'a que le mérite d'être signalée. 

- FTO (Flag for Track 0 = Indicateur pour piste 0) : c'est 
un Indicateur pour falre savoir au DOS où se trouve la 
tête de lecture. Le FDC possède une fonction qui lui 
permet d'aller automatiquement à la recherche de la 
piste O. Il Interrompt sa recherche au bout d'un certain 
temps, et Indique s’il a ou non atteint la piste O. La 
piste O a été atteinte si FTO vaut &FF, sinon Il vaut 0. 
C'est la deuxième valeur variable du DPB du fait du 
FDC et comme BCT elle ne présente d'intérêt que 
pour le DOS. 

- FLG (Flag for LoGin = indicateur d'accès) : c'est un 
indicateur destiné au DOS, pour lui faire savoir si, avant 
toute opération de lecture où écriture, il doit accéder 
au disque afin d'en reconnaître le format. On parle 
couramment pour désigner cette opération de login. 
SI FLG vaut 0, |! y a automatiquement login, s'il vaut 
&FF, Il n'y a pas de login. Naturellement le DOS ne 
reconnaît que les formats standards, à savoir System, 
Data et IBM, qui sont implantés dans la ROM Disc. FLG 
est un paramètre important car si le login est autorisé, 
alors qu'on est sous un format spécial, il y a recherche 
du format de disquette. Cela débouche sur un «read 
fai, ou, quand le formatage peut tromper le DOS, 
comme en rajoutant un 10ème secteur, à un planta- 
ge. Il faut donc mettre cet indicateur à &FF pour évi- 
ter une telle déconvenue (en fait le problème du login 
ne se pose apparement que si le DPB est situé dans la 
RAMDOS ; c'est une bizarrerie de l'AMSDOS). 


Voilà ! On a enfin passé en revue le contenu d’un 
DPB, qui ne doit plus maintenant avoir de secret pour 
personne. On va voir maintenant quelques valeurs de 
paramètres pour ceux à qui cette récréation informa- 
tique aurait donné envie d’'expérimenter des formats 
exotiques. 

Commençons par un tableau de BSH, BLM et EXM, qui 
sont certainement les paramètres les plus ésotériques 
de l’ensemble. Ils sont donnés en fonction de la taille 
du bloc. On rappelle qu'on parle de «petit disque» 
pour moins de 256 blocs et de «grand disque» pour 
plus de 255 blocs. 








Taille de bloc en KO BSH  BLM EXM 
petit disk grand disk 
1 3 7 0 - 
2 4 15 1] 0 
4 5 31 3 1] 
8 6 63 7 3 
16 7 127 15 7 


Finissons par un tableau de DPBs entiers. On va y re- 
trouver pour la forme les formats System et Data. J'ai 
appelé Data+ le format déduit du Data, avec 10 sec- 
teurs par piste (on a rajouté un secteur &CA), et en 
Utilisant les pistes 40 et 41, ce qui offre 208 KO de 
stockage de données. Comme les 9 neuf premiers 
secteurs sont identiques à ceux en Data, un program- 
me situé en piste O, qui installera le DPB du Data+, 
peut être chargé dès l'allumage du système sans 
aucune modification de DPB. Le format 202K est un 
format débutant en piste 1, la piste O0 étant en Data, 
afin d'y mettre l'utilitaire installant le DPB pour le 202K. 
D1-198K et D2-198K sont les 2 DPBs pour partager une 
face de disquette 80 pistes en deux. Ils ne se distin- 
guent que par la valeur de OFF (0 pour l’un et 40 pour 
l'autre). La disquette est formatée comme en Data. 
Toutes les valeurs sont en héxadécimal. 








System Data Data+ 202K D1-198K D2-198K 
SPT 24 24 28 28 28 28 
BSH 03 03 03 03 03 03 
BLM 07 07 07 07 07 07 
EXM 00 00 00 00 00 00 
DSM AA B3 D] C9 C7 C7 
DRM 3F 3F 3F 3F 3F 3F 
ALO, ALT (CO000 CO000 C000 C000 C000  C000 
CKS 0010 0010 0010 0010 0010 0010 
OFF 02 00 00 01 00 28 
FSC 41 C1 C1 C1 C1 CI 
PST 09 09 OA OA OA OA 
GLS 2A 2A 1C 1C 1C 1C 
GLT 52 52 2A 2A 2A 2A 
FLB ES ES ES ES ES E5 
BPS 02 02 02 02 02 02 
RPS 04 04 04 04 04 04 
BCT — — — — — — 
FTO — — — — — — 
FLG 00 00 FF FF FF FF 


Voilà qui conclut définitivement cette longue dégres- 
sion et, je l'espère, récréation sur les DPBs. On va enfin 
aborder les programmes pour utiliser sans (trop de) 
problèmes les formats spéciaux. 


PROGRAMMES POUR EXPLOITER 
DES FORMATS SPECIAUX 


ll va s'agir ici de commenter les différents program- 
mes proposés, bien que leurs listings le soient déjà 
grandement. Mais mieux vaut deux fois qu'une. Des 
explications parfois importantes sont données ici, qui 
ne figurent pas dans les commentaires des program- 


mes. Lorsqu'il est fait explicitement appel à un format 
spécial, on a choisi le Data+, qui est le plus intéressant 
pour tout possesseur de système disque. 

1) BOOT-DPB : est souvent appelé BOOT un petit pro- 
gramme qui installe un système d'exploitation ou qui 
lance un programme en faisant un peu de ménage 
avant, pour lul préparer la place. C'est la fonction de 
la routine du système d'exploitation MC BOOT PRO- 
GRAM. 

Ce programme se contente d'installer un DPB et a 
surtout un intérêt pédagogique. Le DPB est mis en 
&BE00. C'est en effet une des rares zones de la mé- 
moire qui soient inemployées tant par le système d'ex- 
ploitation que par le BASIC, et par même beaucoup 
de programmes. Un rappel de l'emploi de la mémoire 
peut être utile, pour que chacun puisse loger un DPB, 
les RSXs (Resident System eXtension = extension au 
système résident) créées par le programme qui suivra, 
ou d'autres routines sensibles, à des endroits relative- 
ment sûrs : 


0000! 
saut dans le système d'exploitation pour 
remettre à zéro le CPC. 

0007 Peut être employé sans risque. 


X 0008 
x série de restarts et de sauts ; strictement réservé 
X 0040 au système d'exploitation. ZONE SENSIBLE 


0041 
RAM disponible sous BASIC 
A6FB 


X A6FC 
X RAM réservée à l'AMSDOS (RAMDOS) 
X ABFF IZONE SENSIBLE 


X AC! 
X RAM réservée à la ROM BASIC. ZONE SENSIBLE 
X BOFF | 


X B100| 
X RAM réservée au système d'exploitation. ZONE SENSIBLE 
X B8FF 


X B900 | 
x ensemble de routines et de vecteurs de saut. ZONE SENSIBLE 
X BDF31 


BDF41 
ESPACE LIBRE 
BE3F | 


X BE4O| 
X strictement réservé au DOS pour la gestion physique du 
X BE7F lecteur de disquette. ZONE SENSIBLE 


BE801 

ESPACE LIBRE, mais attention à la pile descendante du Z80 
BFFF débutant en CO00 
X CO! 
x RAM VIDEO 
X FFFFI 
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ll s’agit de la configuration sous BASIC. En LM, on libè- 
re la RAM réservée à la gestion du BASIC, on peut 
placer ailleurs la RAMDOS, ainsi que la RAM VIDEO... 
On constate donc que les zones libres et protégées 
sont rares : de BDF5 à BE3F et de BE40 à BF60 (la pile 
du Z80 s'étend très rarement en dessous de BF60). 


Revenons sur le programme BOOT-DPB : l'adresse de 
placement du DPB peut être aisément modifiée. Il 
opère ainsl : 


1) Installation du DPB 

2) Lecture du pointeur de la RAMDOS 

3) Lecture du lecteur actif (A ou B) 

4) Remplacement du pointeur de DPB du lecteur actif 
par l'adresse d'implantation du nouveau DPB 


On rappelle que, le format utilisé étant le Data+, ce 
programme peut se trouver sur la piste 0. A la mise en 
route, le DOS identifie le format comme du Data et 
BOOT-DPB peut être chargé. Ce dernier «réssuscite» 
alors en quelque le 10ème secteur, en installant le 
Data+. On se rend compte ici du danger à manipuler 
sans précautions des disquettes en Data et en Data. 
Le DOS peut travailler avec une disquette en Data+ 
comme si elle était en Data, ce qui peut amener une 
altération de données en cas de sauvegarde. Pru- 
dence | L'installation systématique sur toute disquette 
d'un premier fichier installant le DPB (et pourquoi pas 
faisant office aussi de menu - cf le programme MENU) 
est le mellleur moyen de se garder de tels désagré- 
ments. 

2) LOADRUN : ce programme Implante 2 RSXs pour 
charger des programmes en binaire. Ces RSXs sont 
ILOAD et IRUN et remplissent les mêmes fonctions 
que les commandes du même nom du BASIC. Elles 
sont logeables n'importe où dans la mémoire disponi- 
ble, LOADRUN demandant une adresse de départ (une 
sauvegarde est effectuée automatiquement à la fin). 
ll est préférable d'indiquer la valeur en héxadécimal. 
Voyons d'abord les particularités de ces RSXs, sans 
quoi il n'y aurait pas de raison de remplacer les com- 
mandes originales : 

— |LOAD : à la différence de la commande BASIC qui 
le nécessite, Il n’y a pas besoin qu'il y ait 4 KO de 
mémoire disponible pour un buffer de transfert de 
donnéss. La syntaxe est identique à celle en BASIC : 

- ILOAD»XOOX» pour charger à son adresse de 
chargement (1) le fichier XXXXXX*. Les possesseurs de 
464, à cause d’un bug de la ROM BASIC, doivent na- 
turellement mettre le nom dans une variable et indi- 
quer le pointeur de cette variable. Cela donne par 
exemple: a$=»XXXXXX»: | LOAD, àa$. Ce sera cette 
dernière forme qui sera employée lorsqu'on aura af- 
faire à cette instruction, où à l'autre, pour des raisons 
évidentes de compatibilité. Si on oublie d'indiquer le 
nom de fichier, il y a retour immédiat au BASIC, de 
même sl le nom est illégal, auquel cas on a droit au 
message d'erreur habituel de l'AMSDOS. 

— ILOAD »XXX2006% ,adr pour charger le fichier XXXXXX 
à l'adresse adr. La commande gère les erreurs qui 
peuvent survenir dans les routines de chargement: fi- 
chler absent ou bloc altéré. La main est rendue au 


BASIC sans aucun problème. Le seul risque de planta- 
ge est un chargement dans une des zones sensibles, 
signalées dans le plan de la mémoire, auxquelles il 
faut ajouter le programme BASIC lui-même ainsi que 
les 2 RSXs. 

— RUN : cette Instruction fonctionne comme celle du 
BASIC. I! en résulte qu'elle ne peut être employée 
qu’une seule fois, la main étant passée à la fin de son 
éxécution au programme qui a été chargé. En cas de 
problème de chargement (pas de nom fourni, nom 
illégal, fichier introuvable où bloc altéré) il Y a cepen- 
dant retour au BASIC. La syntaxe est bien naturelle- 
ment: IRUN»XXXXXX» ou a$=»XXXXXX»: | RUN,àa$. La 
différence majeure entre cette RSX et le RUN du BASIC 
est que cette routine ne fait pas appel à la routine du 
système d'exploitation MC BOOT PROGRAM, qui pas- 
se elle-même la main au MC START PROGRAM, avec 
les conséquences que l'on a déjà vu. Ainsi, grâce à 
cette RSX, il n'y a pas de JUMP RESTORE, c'est-à-dire 
que les vecteurs éventuellement détournés sont lais- 
sés Intacts, et le système disque est toujours reconnu. 
C'est l'absence de JUMP RESTORE qui est toutefois 
important. 

On dispose donc maintenant de 2 RSXs très utiles, tant 
pour l’objet de cet article que pour un usage person- 
nel : avec | LOAD on peut se passer de buffer de 4 KO 
pour des chargements simples et avec | RUN on peut 
lancer des programmes binaires sans que le système 
disque soit «oublié» et sans que les vecteurs soient 
réinitialisés. On va donc pouvoir en détourner quel- 
ques-uns à nos fins. Ce sera mis en application dans le 
programme MENU. Mais auparavant on va enfin met- 
tre en application la méthode décrite dans le chapi- 
tre LA RAM AFFECTEE AU DOS pour procder à une 
réinitialisation de DOS sans perte des lecteur, user et 
DPB. 

3) INITDOSI : ce programme est encore un chargeur 
de routine, qui fonctionne comme le précédent. Il est 
destiné à être utilisé sousBASIC et opère un détourne- 
ment de INIT BACK, ainsi d'ailleurs que de ROM WALK. 
La routine implantée est sauvegardée sous forme bi- 
naire en fin de programme. En queue de routine se 
trouve le véritable vecteur pour INIT BACK. Il est utile 
de rappeler que ce vecteur est spécifique à chaque 
type de CPC (464, 664 ou 6128). On ne pourra pas se 
servir donc directement de la routine en binaire écrite 
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Voir bon de commande page 54\. 


sur Un type de CPC avec un autre type. Il faut la 
resauver sur ce dernier type. Un listing en langage 
d'assemblage suffisamment commenté est fourni en 
annexe, pour les curleux. Ceux qui n’y connaissent 
rlen pourront cependant en suivre les étapes. 


Le chargeur fonctlonne ainsi : 


+ demande de l'adresse d'implantation de la routine 

e écriture de la routine 

° écriture en fin de routine du vecteur original INIT 
BACK 

° remplacement du vecteur INIT BACK par un saut à 
la routine 

° remplacement du vecteur ROM WALK par un saut à 
la routine 

° sauvegarde de la routine 

On constate que pour rendre opérante cette routine, 
ll faut détourner les vecteurs INIT BACK et ROM WALK. 
Cette manœuvre de détournement sera évidemment 
à répéter ultérieurement après tout chargement de la 
routine binaire. Quoi qu'il en soit, le chargeur est très 
simple et peut être aisément modifié selon sa conve- 
nance personnelle. Ce détournement de vecteur sera 
mis en œuvre très blentôt dans le programme MENU. 
Ajouté aux RSXs ILOAD et IRUN on obtiendra d‘'ex- 
cellents résultats. Mais Voyons auparavant une routine 
quasiment identique, à la différence près qu'elle ne 
requiert pas de détounement de vecteur ; son usage 
reste en contrepartie réservé aux connaisseurs de l'as- 
sembleur ou autres trifouilleurs d'octets. 


4) INITDOS2 : encore une fols un chargeur BASIC, iden- 
tique aux précédents, pour une routine à utiliser exclu- 
sivement sous assembleur pour des programmes en 
LM. Comme indiqué en fin de paragraphe précédent, 
cette routine est uniquement destinée aux connais- 
seurs de langage machine. L'adresse d'implantation 
demandée par le chargeur BASIC n'a d'intérêt que 
pour la sauvegarde de la routine en binaire. Comme il 
apparaît à la lecture du listing en langage d'assem- 
blage, elle est logeable telle quelle à n‘Importe qu'el- 
le adresse, puisqu'elle n'effectue de saut à aucune 
adresse absolue, ni ne se modifie elle-même, comme 
le fait la routine de INITDOS]1, pour que soient injectées 
dans HL et DE les valeurs désirées pour l'appel de INIT 
BACK. I! s'agit en fait de la routine proposée dans 
INITDOST, mais un peu simplifiée. Le DPB est placé en 
BEOO, qui est une zone très rarement utilisée. Les 3 
octets précédents sont utilisés comme mémoire tem- 
Poraire de lecteur et user. La routine a été ainsi con- 
çue que l'adresse de ce buffer (mémoire 
tampon+DPB) n'est à indiquer qu'une fois, au début. 
On peut donc très rapidement le placer ailleurs. 

Cette routine est à utiliser en sus et place du simple 
appel à INIT BACK. Si on dispose d'assez de place, soit 
63 octets sans “RET”, on n’a qu'à remplacer le INIT 
BACK par elle. Sinon Il faut remplacer l'appel original 
à INIT BACK par un appel à la routine. Il faut veiller 
alors à injecter les Valeurs correctes dans HL et DE 
avant l'appel du INIT BACK à l'Intérieur de la routine. 
L'extraordinaire Intérêt de la routine proposée est 
qu'on peut utiliser alors les programmes binaires qui 
en sont pourvus avec des disquettes de tous formata- 
ges, standards où non, et qu'en plus du INIT BACK les 


lecteur et user actifs sont préservés. Il n'y a nul besoin 
de détourner un seul vecteur où d'utiliser la RSX | RUN. 
On se sert du RUN»XXXXXX du BASIC. 

Pour résumer, et en conclusion de ce paragraphe, 
grâce à cette routine, le lecteur, le user et le DPB du 
lecteur actifs avant la réinitialisation du système dis- 
que sont restaurés après. 


5) MENU : enfin le programme attendu au moins par 
ceux qui ne jurent que par le BASIC, faute de mieux. Il 
met en application toutes les explications données : 
Installation de DPB, RSXs, écriture d’une routine de 
remplacement pour INIT BACK, d'ailleurs détourné, et 
finalement modification de quelques vecteurs pour 
que le détournement effectué ne soit pas réduit à 
néant. Ce programme n'est pas exactement Un menu, 
mais Il prépare le terrain pour un véritable menu, com- 
me Il en sera donné un exemple avec MENU2, lancé 
par MENU. Je le redis encore une fois, mais mieux vaut 
trop que pas assez : MENU doit être le premier fichier 
sur la disquette, au sens physique du terme, c'est-à- 
dire résider en piste O. On a 4,5 KO par piste en format 
Data. Les 2 premiers servant au directory, il en reste 2 
pour un programme lisible indifféremment en Data ou 
Data+. MENU est très succintement commenté pour 
rester dans la limite des 2 KO (Il y a cependant encore 
de la marge pour des ajouts personnels). Hormis des 
initialisations de blocs et la modification de 2 vecteurs, 
tout a déjà été vu dans les programmes BOOT-DPB, 
LOADRUN et INITDOS]1. Voyons de plus près le fonc- 
tionnement de MENU : 

- Initialisations de blocs : c'est facultatif si on vient 
d'allumer l'ordinateur, sinon cela effectue une partie 
du travail du MC START PROGRAM, que l'on désacti- 
vera. On commence par restaurer les vecteurs origi- 
naux avec JUMP RESTORE (BD37). Cela verrouille sur le 
lecteur de cassette, ce qui explique ensuite l‘instruc- 
tion 1 DISC pour retourner au lecteur de disquette. On 
Initialise les blocs : 

+ son : BCA7 - SOUND RESET 

+ gestion d'écran : BBFF - SCR INITIALISE 

* écran graphique : BBBA - GRA INITIALISE 

. écran de texte : BB4E - TXT INITIALISE 

e clavier : BBOO - KM INITIALISE 


- Installation du DPB : absolument rien de nouveau ici 
par rapport à ce qui est fait dans BOOT-DPB. On a 
seulement supprimé les commentaires et fait en sorte 
que cela prenne le moins de place possible. Le soucl 
d'économie de place a été constant dans l'écriture 
de MENU, pour que l'utilisateur ait le maximum de 
liberté pour des apports dans la limite des 2 KO. 

- Installation des RSX ILOAD et | RUN : se reporter à 
LOADRUN pour plus de détails. A noter l’utilisation d’un 
sous-programme commun à cette phase et à la sui- 
vante, toujours pour un gain d'espace. Comme on 
peut le constater à la lecture du listing, on peut très 
facilement loger à l'adresse que l’on désire les RSXS. Il 
n'y a qu'une variable dont il faut modifier la valeur, 
qui est celle d'implantation des RSXs. 

- Ecriture du INITBACK détourné : se reporter à INI- 
TDOS1 pour plus de détails. Les remarques faites pour 
installer | LOAD et IRSX sont valables ici. On installe la 
routine remplaçant le INITBACK, dont on détourne le 
vecteur vers elle, ainsi que celui de ROM WALK. 


- Modification de 2 vecteurs : il s'agit de MC START 
PROGRAM eï de JUMP RESTORE. La nécessité de dé- 
tourner ces routines a été expliquée dans le chapitre 
LES ROUTINES DU CPC EN CAUSE. Pour résumer, leur 
appel réinitialise les vecteurs, ce qui invalide tout dé- 
tournement de vecteur. Examinons comment on opè- 
re : 


e JUMP RESTORE : on annule tout simplement l'effet de 
cette routine en remplaçant le vecteur de saut par un 
retour Immédiat. On fait par prudence un peu plus. En 
effet la plupart des vecteurs se décomposent ainsi : 1) 

1 Restart (1 octet), soit Un saut automatique à une des 
7 premières adresses multiples de 8. 

2) l'adresse sur 2 octets en ROM où RAM de la routine. 
Aussi certains programmes, plutôt que d'appeler une 
routine vla son vecteur, vont lire son adresse et éxécu- 
tent directement eux-mêmes la routine en question. 
Ceci est très fâcheux dans notre cas. C'est pourquoi 
on remplace les 2 octets par une fausse adresse, sans 
conséquence. J'ai choisi l'adresse 000F, où se trouve 
l'instruction RET (RETour) : un CALL y est donc sans 
effet. À noter que c'est une des rares adresses de 
même valeur pour les 3 types de CPC. Est-il nécessaire 
de préciser pour conclure qu'on a remplacé le restart 
par Un RET ? 

e MC START PROGRAM : comme vu au chapitre SYN- 
TAXE DES ROUTINES, cette routine, après avoir effec- 
tué son travail, saute à l'adresse contenue dans HL. 
On remplace donc le Restart par un saut direct à 
cette adresse, grâce à l'instruction JP (HL). Aux 2 oc- 
tets suivants ont été substitués l'adresse OOIE, où l'Ins- 
truction est encore commune aux 3 types de CPC: il 
s'agit d'un JP (HD), comme avaient pu le deviner les 
plus perspicaces. 

° Lancement du menu : par un simple RUN» est lancé 
le véritable programme de MENU, MENU2, que l'on va 
voir maintenant. 

6)MENUZ2: ce programme de menu n'est là qu'à titre 
indicatif et se propose simplement de donner l'exem- 
ple pour que chacun puisse utiliser ses propres menus 
avec l'acquis dû à MENU. MENU2 est donc très simple. 
Sa partie la plus intéressante est la ligne de DATA. 
Examinons la : 

DATA BASIC.BINAIRE.MIXTE.0,basic,1.binaire,0,mixte 

On y trouve d'abord en majuscules les noms des 3 
programmes au menu, tels qu'on veut les porter à la 
connaissance de l'utilisateur. Puis suivent en minuscu- 
les les noms des 3 fichiers correspondant dans l'ordre 
aux 3 programmes. Chaque nom de fichier est précé- 
dé d'un indicateur : O ou 1. Un 0 indique un fichier 
qu'on peut lancer avec l'ordre BASIC RUN» tandis 
qu'un 1 signale un fichier qui nécessite 

l'emploi de la RSX IRUN. Cet indicateur donne en 
quelque sorte le type du fichier. D'où la ligne BASIC 
de lancement : 

READ t,a$:1F t=0 THEN RUN a$ ELSE | RUN.àas$. 


La procédure à suivre s'avère donc, pour ceux qui en 
auralent douté jusque là, enfantine. Pour exemple en- 
core, on peut consulter le listing de MIXTE, qui se con- 
tente de lancer avec | RUN le programme en LM «Bl- 
NAIRE», lequel charge un écran. On va enfin pouvoir 
conclure. 


CONCLUSION 


Tout d'abord bravo au lecteur qui aura tout lu et tout 
compris du premier coup. Je me suis efforcé de ren- 
dre le maximum d'information accessible au plus 
grand nombre et espère y avoir réussi. C'est pourquol 
Je n'ai pas hésité parfois à me répéter, au risque 
d'agacer les connaisseurs, pour que les notions fon- 
damentales solent blen assimilées. Mon souhait le plus 
cher est que cet article et particullérement les routines 
et trucs présentés puissent rendre de grands services, 
que les formatages spéciaux de disquette ne solent 
plus un problème. A une prochaine fois | 


Yannick GOUR 
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TRUCS POUR L’EXPLOITATION DE 


DISQUETTES 
EN FORMAT SPÉCIAL POUR 
LECTEUR A OU B 


56,HIMEM) 
BOOT-DPB.BAS 209 UHILE a$O®FIN" 
219 READ a$ 
229 IF a$="$" THEN READ a$:POKE a, (ad+VAL("&"+a$)) AND 
[NT ARELEELEETEEEECEECEEEETEEE) )RB | 255:P0KE ati, INT((ad+VAL("&"+a$))/256) AND 255:a=at2:G0 
119 ’*x Installation de DBP + RC | TO 249 
[PI ARELEELELTEEELECESCEEEEELE) DRD | 239 IF a$O"FIN" THEN POKE a, VAL("&"+a$):azat{ 
138 DEFINT A-Z WA 249 VEND 
149 ? RF | 259 IF aC(ad+k48) THEN PRINT'Erreur":END 
159 '--- IMPLANTATION DU DPB EN &BE99 --- RG | 26g 
168 AD=&BE99:FOR i=9 TO 24:READ i$:POKE AD+i, VAL("&"416 OFF | 279 *--- reloge le vrai INIT BACK --- 
}:NEXT 289 POKE a,PEEK(&BCCF):POKE a+1, PEEK(&BCDD) 
179 ? )RJ 299 
188 '--- DETERMINATION DE L'ADRESSE --- RK | 399 '--- detourne INIT BACK ---- 
199 ?--- DE LA RAMDOS RE TA | 319 POKE UBCCE,8C3:POKE EBCCF,ad AND 255:POKE &BCDS, INT 
288 randos=UNT(PEEK(&BE7D)+256*PEEK (&BE7E) ) )NQ (ad/256) AND 255 
219 ? RD | 32% 
229 ‘--- DETERMINATION DU LECTEUR ACTIF --- RE | 339 ’--- detourne aussi RON VALK --- 
239 "--- PAR LECTURE EN DEBUT DE RAHDOS --- )RF | 349 POKE LBCCB,&C3:POKE &BCCC, ad AND 255:POKE &BCCD, INT 
249 lecteur=PEEK (ramdos) DUY | Cad/25.) AND 255 
259 ? RH | 35ÿ ? | 
269 '--- REMPLACEMENT DU POINTEUR DE DPB --- JRJ | 369 '--- sauve INIT BACK detourne --- 
278 *--- DU LECTEUR ACTIF PAR &BE9S ee RK | 379 SAVE"initdosi",b, ad, k4A 
288 adptr=ramdostk21A+lecteurx&18 DC | 384 END 
298 POKE adptr,ad AND &FF:POKE adptr+i, INT(ad/256) AND DCN | 3gg 
&FF 499 DATA 22,$,2B,ED,53, $,2E, 2A, 7D, BE, 11, FD, BD, 1,3,4,7E, 
399 ? RD | D5,ED,B8,1,17,2,B7 
318 '--- DPB FORMAT "Datat" --- DRE | 419 DATA 28,2,E,27,05,9,4E, 23, 66,69, 1,18,9, ED, B9,3E,FF, 
328 DATA 26,69,93,87,09,D1,99,3F,00,C9,96,19,99,98,98,C GG | 12,21,FB,AB, 11,49,9 
1,89A,1C,24,E5,92, 94,09, 09,FF 428 DATA E,7,CD,$,47,E1,E3, ED, 5B, 7D, BE, 1,3,9,ED,B8,EB,C 
1,9,73,23,72,C9,CF 
INITDOS 1.BAS rer 
INTEL EETEESEE SEE LES ELEELEELESSEEELE) )RB 
118 '#* INIT BACK (& ROM WALK) DETOURNE # )RC INITDOS 2.BAS 
129 *# copyright Y. GOUR (#4/199{) + RD IUT EECEEET ECS EEE ELELEZEEEE 
[KURRETETENTIZIIILILIEILILISIIILIIIIILEE RE 119 ‘4 INIT BACK AMELIORE * 
149 ? )RF 128 ‘x copyright Y. GOUR (44/1991) x 
159 DEFINT a-z:MNODE 1:CALL &BC92 »ZA IR AMEELTCELEETEEEEES ETES EEZTESTPETTTT 
169 INPUT'"adresse de INIT BACK detourne";a:ad=a )BH 149 
178 ; )RJ 158 DEFINT a-z:MODE 1:CALL &BCY2 
189 * --- installe la nlle routine --- >RK | 168 INPUT"ad de INIT BACK ameliore";a:ad=a 


198 b=a-1:MEMORY MINC(b AND 255)+(INT(b/256) AND 255)x2 HD | 179 ? 
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>NH 
NF 
HN 


MZ 
)CE 
)LR 
)RJ 
RK 
LA 
)TB 
RD 
RJ 


RF 
RG 
RT 


RJ 
)RK 
)YE 
TE 
)TC 
VX 


NW] 


JWX 


>CK 


)RB 
)RC 
)RD 
RE 
)RF 
)ZA 
TN 
JRJ 


189 * --- installe la nlle routine --- )RK 
199 b=a-1:MEHORY HIN((b AND 255)+(INT(b/256) AND 255)+2 DHD 
56,HIMEM) 

298 VHILE a$O'"FIN" >NH 
219 READ a$ NF 
229 IF a$="$" THEN READ a$:POKE a, (ad+VAL("£&"+a$)) AND HN 
255:POKE ati, INT((ad+VAL("&"+a$))/256) AND 255:a=at2:G0 

TO 249 

235 IF a$O'"FIN" THEN POKE a, VAL("4"+a$):a=ati )MZ 
248 VEND )CE 
258 IF aC(ad+&49) THEN PRINT'Erreur":END >LH 
268 )RJ 
279 *--- sauve INIT BACK ameliore --- >RK 
288 SAVE"initdos2",b,ad,&k4ÿ )VH 
29ÿ END )TE 
388 )RD 


319 DATA 24, 7D,BE, 11,FD, BD, 1,3,9, 7E,D5, ED, B9, 1,17,2,B7, DYU 
28,2,E,27,C5,9,4E, 23 
329 DATA 66,69, 1,18,9,ED,B8,3E,FF,12,21,FB,AB,11,40,0,E )ZD 
,7,CD, CE, BC, Et, E3, ED 


339 DATA 5B,7D,BE,1,3,9,ED,B9,EB,C1,9, 73,23, 72, C9 > 
349 DATA FIN )CK 
LOADRUN.BAS 
MARETTTITIELISIIETIIIIIIII TITI III) >LA 
15 ’# RSX LOAD ET RUN: * )LF 
28 ‘x LOAD sans Buffer * )LB 
25 x RUN sans MC BOOT PROGRAM * )LG 
38 ‘x copyright Y. GOUR (84/1991) + )LC 
SOMME TEE EIS TESTÉES EEE ETES ESEEEELE >LH 
4g )LD 
45 DEFINT a-z:MODE 1:CALL &BC92 NE 
58 INPUT'adresse des RSX5";a:ad=a >HP 
55 b=a-1:MEHORY MIN((b AND 255)+(INT(b/256) AND 255)#25 )GX 

6,HINEM) 

689 WHILE a$C)"FIN" DME 
65 READ a$ HG 
78 IF a$="$" THEN READ a$:POKE a, (ad+VAL("&"+a$)) AND 2 DEC 
55:POKE a+1, INT((ad+VAL("&"+a$))/256) AND 255:a=a+2:G0T 

0 89 

75 IF a$C"FIN" THEN POKE a, VAL("&"+a$):a=ati )LU 
88 VEND »)XB 
85 IF aC>(ad+&75) THEN PRINT'Erreur":END >KP 
99 SAVE" loadrun",b, ad, &75 >XK 
95 CALL ad >MB 
199 END RE 
145 ? )RG 
119 DATA 21,$,9,1,$,D,C3,D1,BC,8,9,8,0,$,15,C3,$,1D,C3, >QR 
$,54,4C,4F,41,C4 

115 DATA 52,55,CE,8,B7,CB,3D, 28,8, DD, 66, 1,DD,6E,8,E5, DD >ZN 
, 23, DD, 23,DD,66,1,DD 

129 DATA 6E,8,46,23,5E,23,56,21,8,C8,EB,F5,CD,77,BC,368, )XD 
5,F1,B7,C8,E1,C9,F1 

125 DATA B7,28,1,D1,EB, CD, 83, BC, DC, 7A, BC, C9, 3D, CS, DD,66 )Y4 
1, DD, 6E,9,46,23,5E 

139 DATA 23,56,21,8,C8,EB,CD, 77, BC, D9,EB, CD,83,BC,D9,E5 >XX 
, CD, 7A,BC,D8,E1,C9 

135 DATA FIN )DB 





MENU.BAS 


189 'RAZ et DPB )RB 
119 DEFINT a-z:RESTORE 219:READ a$:MHILE a$O"FIN":CALL DYJ 
VAL("&®+a$) :READ a$:WEND:ÜDISC:d=&BESQ:FOR i=9 TO 24:R 

EAD a$:POKE d+i,VAL("&"+a$):NEXT:a=UNT(PEEK(RBETE) 2564 
PEEK(&BE7D)):a=PEEK(a)*#16+&21A+a:POKE a,d AND 255:POKE 

ati, INT(d/256) AND 255 


129 ?’RSXs et INIT BACK detourne )RD 
139 a=LA69G:MEMORY a-1:GOSUB 178:CALL ad:a=&BFOS:RESTOR >BH 
E 319:G0SUB 174:POKE a,PEEK(&BCCF):POKE a+i,PEEK(&BCDS) 
:POKE &BCCE,&C3:POKE &BCCB,&C3:b=ad AND 255:POKE &BCCF, 
b:POKE &BCCC,b:b=INT(ad/256) AND 255:P0OKE &BCDS, b:POKE 
&BCCD, b 

145 ’nodifie START PROGRAM et JUMP RESTÜRE >RF 
159 a=&BDI6:POKE a,&E9:POKE a+1,&1F:POKE a+2,8:a=&BD37: TB 
POKE a,KC9:POKE a+1,&F:PDKE a+2,8 

168 RUN"menu2 )LE 
179 ad=a:a$="":WHILE a$O'"FIN":READ a$:1F a$="$" THEN R )FQ 
EAD a$:b=adtVAL("&"+a$):POKE a,b AND 255:POKE a+1, INT(b 
1256) AND 255:a=a+2 ELSE IF a$C"FIN" THEN POKE a, VAL(" 
&"+a$):a=ati 

189 WEND:RETURN >MK 
199 )TA 
288 renise a zero )RC 
218 DATA BD37,BCA7,BBFF, BB4E, BB99,FIN )FG 
22g ? RE 
238 'DPB )RF 
248 DATA 28,8,3,7,8,D1,9,3F,9,C9,9,19,9,8,9,C1,A,1C,2A, DMT 
E5,2,4,0,9,FF 

259 ? >RH 
268 'LOAD et RUN )RJ 
2178 DATA 21,6,9,1,$,D,C3,D1,BC,9,9,8,9,$,15,C3,$,1D,C3, DYA 


$,54,4C,4F,41,C4,52,55,CE,9,B7,C8, 3D,28,B,DD,66,1,DD,6E 

, 8,5, DD,23, DD, 23, DD, 66, 1, DD,6E,9,46,23,5E,23,56,21,8,C 
9,EB,F5,CD, 77,BC,38,5,F1,B7,C8,E1,C9,F1,B7,28,1,D1,EB,C 
D,83,BC, DC, 7A, BC, C9 

289 DATA 3D,C9,DD,66,1,DD,6E,8,46,23,5E,23,56,21,8,C8,E CA 
B,CD, 77,BC,D9,EB, CD, 83,BC, DS,ES5, CD, 7A,BC,D8,E1,C9,FIN 


298 ? )TB 
399 ‘ INIT BACK detourne )RD 
318 DATA 22,$,2B,ED,53,6,2E,2A, 7D,BE, 11,FD,BD,1,3,9,7E, DFH 
D5,ED,B6,1,17,2,B7,28,2,E,27,C5,9,4E,23,66,69,1,18,9,ED 
,B9,3E,FF,12,21,FB, AB, 11,49,9,E,7,CD,$,47,E1,E3,ED,5B,7 
D,BE, 1,3,9,ED,B9,EB,C1,9, 73,23, 72,C9,CF,FIN 
MENU 2.BAS 
18 MODE {:LOCATE 19,6:PRINT"MENU":FOR i=1 TO 3:LOCATE 1 DRU 
5,7+2*i:READ a$:PRINT i;a$:NEXT 
29 i=VALCINKEYS):IF i94 OR i=8 THEN 29 ELSE k=i:FOR i=1 VV 
TO i:READ t,a$:NEXT:1F t=4 THEN RUN a$ ELSE üRUN, àa$ 
38 DATA BASIC,BINAIRE, MIXTE XV 
MIXTE.BAS 
18 CLS:PRINT"Je suis un programme en BASIC":PRINT"Je me DUW 


contente de lancer le progranme binaire avec üRUN":FOR 
i=9 TO 398G:NEXT:a$="BINAIRE" :URUN, àa$ 
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HISTOIRE 





l'utillté des remarques sur le 

serveur puisqu'ainsi, vous pour- 
vez signaler les problèmes rencon- 
trés lors du téléchargement. Pour 
Desktop, il manque effectivement 
le fichier Easy.doc. Ce dernier sera 
ajouté et vous pourrez le téléchar- 
ger séparement. Pour Omicron 
Démo. il n'y a pas de fichier «Menu», 
celui-ci étant un reliquat du fanzine 
duquel il a été extirpé. Il suffit de 
supprimer cette référence dans le 
premier fichier (Omicron. bin). 


if out d'abord, il faut souligner 


AU programme aujourd'hui, voi- 
ci Histoire, un logiciel éducatif en- 
voyé spontanément par son auteur 
pour venir grossir la quantité de 
programmes disponibles. Le pro- 
gramme est constitué de séries de 
questions sur plusieurs périodes de 
notre histoire. En répondant correc- 
tement à toutes les séries, vous ob- 
tiendrez un code donnant accès à 
un jeu. Mais Il faudra auparavant 
répondre et ce n'est pas facile, car, 
à chaque erreur, Il faut reprendre à 
partir du début. Mais normalement, 
à la fin de votre «apprentissage» 
VOUS aurez acquis pas mal de con- 
naissances historiques. 


Un programme déjà publié dans 
CPC et qui n'avait pas encore con- 
nu les joies du téléchargement : 
Fractal Landscapes. Ce logiciel 
permet de concevoir des scènes 
fractales d'une manière relative- 
ment simple. A noter tout de même 








qu'en modifiant tous les paramètres 
un peu au hasard, il est rare d'ob- 
tenir Un bon résultat. De toutes fa- 
çons, il est nécessaire d'être patient 
lorsque l'on a demandé un calcul 
avec ombrage et facettes pleines 
puisque cela peut aller jusqu’à plu- 
sieurs heures. Pour ceux qui vour- 
dront avoir des exemples, il suffira 
de télécharger la démo ainsi que 
les matrices utilisées pour la démo. 
Fractal Landscapes ne fonctionne 
que sur 6128 puisqu'il utilise les 64 
Ko supplémentaires. Il faudra 
d'abord lancer Bankman, puis taper 
Symbol After 256 et ensuite lancer 
Fracrun. 


Pour rester dans le domaine 
(merveilleux) des programmes de 
CPC Infos, voici la fournée des pro- 
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grammes du mois correspondant à 
2 numéros (31 et 32). Easy Screen 
est un Utilitaire permettant de com- 
poser des pages avec des menus 
et des sous-menus. En fait, Easy 
Screen est un générateur de pro- 
gramme. Une fois définies les ca- 
ractéristiques de vos pages et les 
liens entre les menus, Un programme 
basic est créé que vous pourrez üti- 
liser ensuite dans vos propres créa- 
tions. Ce programme est lui-même 
constitué de menus et possède 
toutes les explications nécessaires. 


Oxysudis est un jeu de plate-for- 
mes se déroulant sur des planètes 
inconnues, avec un temps trés limité 
et des tas de pièges. Sur l'ensemble 
des niveaux, ce jeu vous donnera 
du fil à retordre. 


Un programme graphique, à 
paramètres multiples et qui permet 
de réaliser des motifs géométriques 
et multicolores, c'est Automate cel- 
lulaire. Comme son nom l'indique, il 
travaille au niveau du pixel et d'une 
«semence» aléatoire qui lui permet 
de réaliser des écrans très rapide- 
ment (routine en assembleur). 


Le jeu que beaucoup de per- 
sonnes attendent : Axys est enfin sur 
le téléchargement. Au moment où 
j'écris, je ne sais pas si ce program- 
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7 Dir : entre 8 et 359 
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? observateur 


-- direction 
regardee 
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FRACTAL LANDSCAPES 





me sera compacté avec 
CRUNCH20, étant donné sa taille 
mais vous le saurez facilement puis- 
qu'il Y aura alors un Z dans l’exten- 
sion du nom de fichier. 


Claude Le Moullec vous présen- 
te un autre jeu de son crû : Charlie 
Bond Sound. Il s’agit d'un jeu musi- 
cal, où vous devez recomposer un 
air de musique sur 3 voies. 


Pour les démos vous trouverez les 
démos de AST System : Joke demo, 
Short demo Il, Demos, Joke demo 
Il, Equinox, Demo 6 


f" 


allo 
CPC infos 


Attention, notez bien ce qui suit : 
Dès le mois de septembre, tous les mercredis 


de 14 h à 17 h, la rédaction se tiendra à votre 
disposition au 99 52 98 11 pour tous renseigne- 
ments techniques. En dehors de ce créneau les 
réponses techniques se feront par courrier (n’ou- 
bliez pas de menticnner votre adresse et joignez 
un timbre pour la ‘éponse) ou bien par Minitel 
sur le 3615 code : MHZ. 
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N°26-27-28-29-3-31-32-33-34 25 F (unité) 
35—36-38-39-40-41-42-43-4-45-46-47 26 F {unik) 


DISQUETTES AMSTAR & CPC 
N°20-21-22-23-24-25-26-77 -28-29-3% ê 110 F {unité) 
(une disquette réunit 2 numéros consécutifs d'Amstar & CPC) 140 F {unité) 


ANCIEN No CPC Infos 
N°25-26-77-28-29-30—31-32-33 26 F {uniké) 


DISQUETTES CPC Infos Abonné : 

— MEGA SOUND 110 F (unité) 
— N° 31 (Am/Stor 48 & CPC Infos 24) — N° 32 (CPC Infos 25 & 26) — N° 33 (CPC Infos 27 & 28) Non abonné : 
— N° 34 (ŒC Infos 29 & 30)— N° 35 (CPC Infos 31 & 32) — N° 36 (CPC Infos 33 & 34) 140 F (unité) 
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ABONNEMENT 6 DISQUETTES (non rétroactif) 600F 


DISQUETTES “ARCADES”” Téléchargement AMSTRAD CPC 60F 
CABLE pour téléchargement 89F 
[Téléchargement non compatible avec 6128+ et 464+) 


LOGICIELS EDUCATIFS - LIVRES - DIVERS 


Forfait port + 10 F par logiciel et 10 % pour livres 


Pour tout envoi par avion : Q Facultatif : recommandé + 10 F par commande 
prendre contact avec le service commercial MONTANT GLOBAL 
Je joins mon règlement :  Q chèque bancaire Q chèque postal  Q mandat CPC Infos 34 
PAYEZ PAR CARTE BANCAIRE 


Date d'expiration | 1 | 1 | Signature 
inscrire les numéros de la carte, la dale et signer] __ Mille: 


ECRIRE EN MAJUSCULES 


Afin de haciliter le traitement des commandes, nous remercions notre aimable clien- 
le de ne pas agrafer les chèques, et de ne rien inscrire au dos. 


Commende : La commande doit comporter tous les renesignements demandés sur le bon de commande (désignation ou référence si celle-ci existe). Toute absence de précisions est sous la responsabäité de l'acheteur. La vente est 
condue dès accaptafon du bon de commande par notre société, sur les articles disponibles 

Les prix : Les prix indiqués sont valables du jour de La parution du catalogue jusqu'au mois suivant ou au jour de parution du nouveau catalogue, sauf erreur dans le libellé de nos tarifs au moment de la fabrication du catalogue, et de 
variation de prix importante des fournisseurs. F 

Livraison : La Imaison intervient après le règlement. Les délais de Ivraison étant de 10 à 15 jours environ, SORACOM ne pourra ètre tenue pour responsable des retards dus aux transporteurs ou aux grèves des services postaux. 
Transport : La marchandise voyage aux risques et périls du destinataire. La Iraison se faisant par cols postal ou par transporteur. Les prix indiqués sur le bon de commande sont valables sur toute la France métropolitaine, + 20 F par 
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Lois de jeux divers cassettes ou disquettes 
Par 5 jeux 40 F le lot de cassettes 


Par 10 jeux 60 F le lot de cassettes 


Par 5 jeux 100 Fe lot de 5 disquettes 
Par 10 jeux 150 F le lot de 10 jeux 


181 #04 


SMLN4WOD 249 
HIGTINHOS/AVALSWY NO 


WODdV)D 


IKKerelife;=à lots en solde. Les jeux ne sont ni repris ni échangés. 
MElreike Cha pas demander au téléphone la liste de ces titres. 





a ————| 





jy, _ Bon de commande Nom: Prénom: I 
| Je commande See I 

1 D5jeux K7 pour 40 F Code postal : ________ Ville: I 
1 Q10jeux K7 pour 60 F Date : Signature I 
1, 25 jeux disc pour 100 F C& JE REGLE PAR CARTE BANCAIRE I 
M Q 10 jeux disc pour 150 F | | | Lis ail 
e joins mon réglement chèque bancaire Q I 

q chèque postal Q mandat Q Date d'expiration | 1 | | Signature I 

I 


L Retournez ce coupon, accompagné de votre chèque libellé à l'ordre des Editions SORACOM - La Haie de Pan - 35170 BRUZ 
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EASY SCREEN 





Guy DUBUS 








Valable pour CPC 664 - 6128 


Avec ce générateur de menus, vous allez pouvoir créer des pages écran ayant une 
présentation professionnelle. Reportez-vous au numéro précédent pour avoir toutes les 
explications et les débuts des Listings. 


$ U Ù T E 


219 GRAPHICS PEN 1:MOVE 64, 368:PRINT a$::MOVE 169,176:P DH2 
RINT b$;:MOVE 89,144:PRINT c$; :MOVE 96,112:PRINT dé; :M0 

VE 9,16:PRINT f$ 

228 GRAPHICS PEN 14:MOVE 68,372:PRINT a$;:MOVE 164,189: >MG 
PRINT b$;:MOVE 84,148:PRINT c$;:MOVE 199, 116:PRINT d$;: 
HOVE 4,29: PRINT f$ 


239 SYMBOL AFTER 33:g=112:GRAPHICS PEN 1 )HB 
249 FOR n=1 TO LEN(e$):f$=MID$(e$,n,1):1F f$=" * THEN g >NG 
=g+32:G0T0 288 

259 b=ASC(f$)-32:c=49956+ (bx8) )XC 
269 FOR m=42732 TO 42746 STEP 2:POKE m,PEEK(c):POKE m+i AZ 
,PEEK(c):c=c+1:NEXT n 

278 g=g+32:MOVE g,288:PRINT CHR$(254) ;:MOVER -32,-16:PR DTP 
INT CHR$(255); 

289 NEXT DEF 
298 MOVE 112,288:FOR larg=1 TO 8:FOR stylo=2 TO 12 STEP »2D 
2:GRAPHICS PEN stylo:DRAUR 9,-32:MOVER 4,32:DRAUR 9, -3 
2:MOVER 4,32:NEXT stylo, larg:TAGOFF 

398 col(1)=7:co1(2)=6:co113)=15:col(4)=9:co1(5)=2:co1 (6 >EH 
)=4 

319 INK 1,17: INK 15,8:INK 14,3:i=1:k=9 )EG 
328 FOR stylo=3 TO 13 STEP 2:INK stylo,col(i):i=i+{:1F NF 
196 THEN i={ 

339 NEXT stylo:i=iti:IF 126 THEN i=1 >DN 
349 FOR j=1 TO 4@:NEXT j:k=k+1 )XY 
354 MHILE k<49:GO0TO 329:WEND XXT 
368 PRINT CHR$(23) ; CHR$ (9) ; :CLEAR >BM 
378 ?-------- TA 
388 MODE 2:INK 9,15:INK 1,1:LOCATE 35,1:PRINT"##* AIDE BR 
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#4": PRINT:PRINT"CREER/COMPLETER UNE SERIE DE PAGES (Ed 

iteur de pages)":PRINT:PRINT" x OPTION TEXTE"; - M 

ENUS : l'enplacenent de la dernilre option est r{servi 
au programme, qui"; 

399 PRINT" y inscrit ";CHR$(34); "QUITTE";CHR$(34);" FN 

pour le menu principal (le premier) ou ";CHR$(34);"RET 

OUR"; CHR$(34);" pour les"i"  suivants.":PRINT" Dan 

s l'option ";CHR$(34); "Pointe sur S/Programme Code. .."; 

CHR$(34);", vous pouvez entrer :"; 

498 PRINT" - un label mnmonique pour la routine @ 
appeler (dans VOTRE progranme),";" - Le numfro de 
la premilre ligne de cette routine (prc{d{ de";CHR$(3 

4); "HT; CHRS(34);"),"; 

419 PRINT" - un nun{ro de page (type Message avec 

r{ponse 0/N attendue, ou Saisie).";" Dans les 3 cas, 
NE PAS OUBLIER D'AJOUTER UN RETURN EN FIN DE ROUTINE 
OU DE";" PAGE !" 

428 PRINT" - Utilisez la conmande ":CHR$(34);"Fin de 
texte";CHR$(34);" (CTRL+F) dans le type Message, si vo 

us";" voulez une fenetre vide (avec ou sans titre) 

: fenetre de travail de votre"; 

439 PRINT" programme, ou pour incrustation d’une aut 

re fenetre. L'{criture du programne";"  g{n{r{ en ser 

a allfgle, mais cette commande est irriversible, sauf 
si vous"; 

449 PRINT"  d{cidez de refaire la page.":PRINT:PRINT" DRR 

# OPTION COULEURS"; " Pour chaque page, d{finitio 

n de 4 INK (9 @ 3) ; INK 9 est affect{e au fond": 

458 PRINT" d'{cran et au BORDER. Pour la fenetre c 

ourante (F1 @ F4), affectation d'un";" PAPER (FEN : f 

ond de fenetre) et de 2 PEN (CAD : cadre et CAR : cara 


ctires)." 
(UT RRTETTIT TTC) 
479 ' MENU PRINCIPAL 
460 ?* KAHHAKANEANENT 
499 SYMBOL AFTER 219 
589 SYMBOL 219,38, 38, 36, 38, 36, 38, 38, 38 
519 SYMBOL 229,9,9,255,9,9,255,255,9 
529 SYMBOL 221,8,55,72,72,55,72,72,72 
539 SYMBOL 222,9,219,36,36,219,9,9,9 
549 SYMBOL 223,9,236,18, 18,236, 18,18, 18 
559 SYMBOL 224, 72,72,48,72,72,48, 72,72 
569 SYMBOL 225,18,18,12,18, 18,12, 18,18 
579 SYMBOL 226, 72,72, 72,55, 72,72,55,8 
589 SYMBOL 227,8,9,9,219,36,36, 219,8 
599 SYMBOL 228,18,18,18,236,18,18,236,8 
689 SYMBOL 229,9,127,64, 73,86, 72, 72,89 
619 SYMBOL 234,9,255,9,153,192,9,0,9 
629 SYMBOL 235,9,254,2,146, 196, 18,18, 19 
639 SYMBOL 236, 89, 72, 72,89, 89,72, 72,89 
649 SYMBOL 237,19,18,18,19,19,18,18,19 
659 SYMBOL 239,89, 72, 72,86, 73,64, 127, 
669 SYMBOL 248,8,9,9,192,153,8,255,8 
679 SYMBOL 249, 19,18, 18,196, 146,2,254,9 
689 SYMBOL 259,8,63, 127,96, 96, 193, 199, 199 
699 SYMBOL 251,9,255,255,9,9,255,9,9 
789 SYMBOL 252,8,252,254,6,6, 239,38, 38 
719 SYMBOL 253, 199,109, 199, 199,109, 199,199, 198 
729 SYMBOL 254,199, 199, 193, 96,96, 127,63,9 
738 SYMBOL 255, 38, 38,239,6,6,254,252,ÿ 
749 OPENOUT "toto":MEMORY HIMEM-1:CLOSEOUT:DEF INT a-2 
758 DIM con(18),m1$(5),n2$(6),com$(5),n$(3),help$(15,4) 
,index(99, 1),hpos(6),box(15,8),fen(25,16),fen$(25,6):fo 
rm$=" Rte" MHCHRS(14Q)+" Marta MACHRS(149)+" 
LEA 
769 1=1:FOR i=1 TO 18:READ com(i):NEXT i 
778 FOR i=1 TO 5:READ mi$(i):NEXT i 
789 FOR i=1 TO 6:READ m2$(i):NEXT i 
799 FOR i=1 TO 5:READ com$(i):NEXT i 
899 FOR i=1 TO 15:FOR j=1 TO 8:READ boxli, j):NEXT j,i 
819 FOR i=ÿ TO 25:FOR j-=9 TO 16:READ fen(i, j):NEXT j:F0 
R k=1 TO fen(i,1):READ fen$(i,k):NEXT k,i 
829 GOSUB 2559:CLS:PRINT" * OPTION RETOUR";" Pour 
ajouter des fenetres, vous pouvez demander ici @ refa 
ire la page, ou";" choisir ult{rieurement ";CHR$(34); 
“Modifier/Mettre @ jour";CHR$(34);" dans le menu princ 
ipal, puis"; 
839 PRINT" ";CHR$(34); "Modifier page";CHR$(34);" et "; 
CHR$(34); "Ajouter une ou des fenetres";CHR$(34);".";" 
L'effacement d’{cran au changement de page concer 
ne l’{cran PRECEDENT,"; 
848 PRINT" lors de l'affichage de la page courante dan 
s votre application.":PRINT:PRINT'MODIFIER/METTRE À JOU 
R UNE SERIE":PRINT:PRINT" Dans une s{rie de pages D 
EJA ENREGISTREE, vous pourrez ajouter, suppriner,"; 
858 PRINT'nodifier ou refaire des pages. Vous pourrez 
aussi les dfplacer, en changeant";"leur num{ro de ra 
ng dans la s{rie ; le numtro de page, lui, NE CHANGE JA 
MAIS, "; 


869 PRINT" ATTENTION : c’est le nun{ro de page, et n 


)TA 
>TB 
)TC 
)PJ 
>EK 
BL 
)CD 
)BX 
)EF 
DEA 
)DR 
>DF 
>BH 
DER 
>DB 
BE 
)EP 
»DA 
)DX 
>DH 
>BQ 
DEA 
)GY 
»BA 
DL 
)LJ 
>GX 
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)DX 
>DH 


WE 


)DU 
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on de rang, que vous devez indiquer";"dans l'{diteur de 
pages lorsqu'il vous est demand{ (Pointe sur S/Menu Pa 
ge...).":PRINT:PRINT'COMMANDES DANS LE PROGRAMME D’ APPL 
ICATION" :PRINT 
879 PRINT" Les memes que dans EASY SCREEN.":PRINT" 
Messages n'attendant pas de r{ponse : taper une t 
ouche quelconque pour";"passer @ la suite.":"  Fene 
tres de saisie : entre alphanua{rique ou nunfrique, en 
node insertion."; 
888 PRINT'Corrections :";CHR$(242);"/";CHR$(243) ;"/CLR/ 
DEL, Passage au champ pricident/suivant et validation : 
"iCHR$(248);"/";CHR$(241);"Fin de saisie : ENTER ; inp 
ossible de sortir si tous les champs ne sont pas";" 
saisis." 


988 help$(2,1)=" S{lection:"+CHR$(241)+"/"+CHR$(243)+"/ 
*+CHR$(249)+"/"+CHR$(242)4+"  Validation:ENTER":m$(ÿ)=" 
Tapez un nom de fichier, puis ENTER":n$(1)=" ou ENTER 
pour choisir sur r{pertoire":m$(2)=" Annulation de la 

commande : COPY" 
918 help$(3,8)=" R{ponse : o/0/n/N':help$(i,1)=" Corr 
ections:DEL Validation:ENTER":m$(3)="Choix du num{ro: 
"4CHR$(249)+"/"+CHR$(241)+"  Validation:ENTER" 

928 help$(3,1)=help$(1,1):help$(4,9)=help$(2,1):help$(4 
,1)2=" Sortie d'option : COPY":help$(5,#)="Changer de fe 
netre:tapez un No valide":help$(5,1)="de { @ 4. Correct 
ion:retapez un num{ro" 

938 help$(5,2)=help$(4,1):help$(6,9)="Curseur=coin haut 
/gauche de la fenetre":help$(6,1)="D{placements du curs 
eur:"+CHRS(241)1+"/"4CHR6 (243) +"/"4CHRS(248)+"/"4CHRS (24 
2)thelp$(6,2)="Apparition de la fenetre ninimun:ENTER" 
948 help$(7,8)="D{placer la fenetre:"+CHR$(241)+"/"+CHR 
$(243)+"/"+CHR$(249)+"/"+CHR$ (242) :help$(7,1)="Changer 
les dimensions :SHIFT+"+CHR$S(241)+"/"+CHR$(243)+"/"4CHRS$ 
(249)+"/"+CHR$ (242) :help$(7,2)="Centrer en largeur/en h 
auteur:C/CTRL+C" 
959 help$(7,3)="Modifier marges:G/D+"+CHR$(242)+"/"4#CHR 
$(243)+"  Sortie:COPY":help$(8,8)=:" Tapez un No en he 
xad{cinal (1 @ F)":help$(8,1)=" Changer de cadre : tape 
z un autre No":help$(8,2)=help$(4,1) 
969 help$(9,8)=" Caractire pric{dent/suivant:"+CHR$(242 
)+"/"+CHR$(243):help$(9,1)="Corrections:CLR/DEL Valide 
r ligne:ENTER":help$(9,2)="Ligne pricid./suiv.:"+CHR$(2 
49)+"/"4CHR$(241)+" Effacer :CTRL+E":help$(9,3)=" Fin 
de fenetre:CTRL+F" 
979 help$(9,4)=help$(4,1):help$(19,8)=" Options s{parie 
s par un seul espace":help$(19,1)=help$(9,9):help$(19,2 
I=help$(9,1):help$(19,3)=help$(4,1):help$(11,9)=" 2 ch 
iffres maxiaun"thelp$(11,1)=help$(1,1) 
989 help$(12,9)="18 caractires alphanug{riques naxi :": 
help$(12,1)=" # Label, d{butant par une lettre":help#(1 
2,2)=" *x No de ligne appelle, pric{d{ de #":help$(12,3) 
=" *# No de page (2 chiffres maxi)":help$(12,4)=help$(1, 
1) 
998 help$(13,9)=" (A) Iphanum{rique ou (Nunirique"thel 
p$(13,1)=help$(1,1):help$(14,9)="6 caractires alphanun{ 
riques maxi":help$(14,1)="commen\ant par une lettre":he 
Ip$(14,2)="Code de type ($,!,%) facultatif" 
1899 help$(14,3)="Variable nun{rique = 


VV 


BK 


>TH 
>Q 


»YB 


r{elle par d{fau >ME 


— 


t'shelp$(14,4)=help$(1,1):help$(15,9)="  S{lection et 
validation:"+CHR$(241)+"/"+CHR$(243)+"/"+CHR$(249)+"/"+ 
CHR$(242):help$(15,1)="Corrections:DEL Sortie d'optio 
n:COPY":GOSUB 2558:CLS:LOCATE 23,1 
1919 PRINT'QUELQUES CONSEILS EN VRAC POUR FINIR":PRINT" 
* Un menu doit toujours etre appel{ par un autre 
menu, directement ou par";"une page interm{diaire te 
rainte par un GOTO, pour que le retour automatique"; 
1929 PRINT'fonctionne correctement.":PRINT" #*Siv 
ous faites pointer une option d'un senu sur un sous 
-programse de'";"votre cru par un label alphanum{rique, 
n'oubliez pas, dans l'application, de"; 
1938 PRINT'remplacer ce label par le No de ligne correc 
tue * La sauvegarde n'est effective que lors 
que vous retournez au Menu";"Principal (travail ter 
ainf, ou pause). Si vous avez lieu de craindre une coup 
ure"; 
1849 PRINT'"de courant, demandez plriodiquenent @ inte 
rrompre le travail (dans ";CHR$(34) ; "RETOUR" ;CHR$ (34) ;" 
| ss"vous serez sauv{, et vos donnes aussi...";" 
* Une astuce pour examiner une page d{j@ crie : 
HR$(34);"Modifier Page..."; 
1959 PRINT CHR$(34);" sans" ;"ajouter de fenetres, et al 
ler tout de suite @ ";CHR$(34) ; "COULEURS"; CHR$(34);" (q 
ui affiche l’ensenble";"de la page), puis ";CHR$(34);"R 
ETOUR";CHR$(34);". NOTA : les No de page et de rang n 
e sont pas alors"; 
1869 PRINT"pr{cis{s dans l'{diteur.":PRINT" * Fene 
tres ":CHR$(34); "Message"; CHR$(34);" sans cadre : s 
i vous remplissez compl)tement la";"dernilre ligne, | 
e texte remonte. Validez par ENTER, sortez par COPY et 
revenez"; 
1979 PRINT'dans ";CHR$(34) ; "TEXTE" ;CHR$ (34) ;" vous 
constaterez que tout est en ordre. Si alors vous vou 
lez'";"corriger un caract}re, effacez-le d'abord par C 
LEAR ou DEL (vous etes en mode";"insertion)." 
1989 PRINT" * Si une fenetre incrust{e doit, @ un 
moment donnf, laisser la place @ une'";"autre plus petit 
e ou d{calte, vous devez ajouter, au bon endroit du 
programme"; 
1998 PRINT"g{n{r{ : CLStf si le fond de la fenetre 
environnante est de la meme couleur,";"sinon PAPERHf,x 


"mc 


:CLSHf, x {tant le No de PAPER de la fenetre environna 
nte." 

1199 GOSUB 2559:fes=1:0N BREAK CONT 

ATAD Maséessessensssssssessasss 


1129 non$="":0N ERROR GOTO 2629:MODE 1:BORDER B:INK 8,9 
LENK 1,4:INK 2,2:INK 3,15:PAPER#1, 1:PEN#1,2:PAPER#3,:w 
f=1:cg=2:cd=39:ch=1:cb=13:cad=5:GOSUB 2578: WINDOW#1, 3,3 
8,2,12 

1138 LOCATE#!, 1,2:PEN#1,3:PRINT#1," ";mi$(1):PRINTHL:PR 
INTH1," "smi$(2):PRINTHA:PRINT#1," "mi$(3):PRINTHI:PRI 
NT#H1," Msni$(4):PRINTHI:PRINTHI," "ymi$(5) 

1149 PEN#3, 3:GOSUB 2519 :PEN#3, 2: LOCATER3, 1,2: PRINT#3, he 
Ip$(2,1);:GOSUB 2299:r=9:WHILE rC13:G0SUB 2538:G0SUB 2 
298:FOR i=5 TO 9:1F rCcom(i) THEN NEXT ;i 

1159 ON i-5 GOSUB 2399,2319,2309,2319:GOSUB 2298:WEND: 1 
F 1=5 THEN CALL ÿ 

1169 PAPER#2,3:PEN#2, 1:wf=2:cg=4:cd=37:ch=15:cb=19:cad= 


MR 


v 


SR 


F4 


RG 


RQ 
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3:GO0SUB 2578 

1179 PEN#2,2:UINDON#2, 5,36, 16, 18:CLS#2:PRINTH2,* 
u fichier de donnes ?";:GO0SUB 1258 

1189 CLS#3:1F 121 THEN PRINT#3,help$(2, 1) ;m$ (2) ; : GOSUB 

2369:G0T0 1269 ELSE PRINT#3,nm$(9);m$(1);m$(2); 

1199 GOSUB 2538:1F r=127 THEN IF POS(#2)=13 THEN PRINT 

CHR$(7); ELSE PRINT#2,CHRS$ (24) ;CHR$(8) ;CHR$ (16) ; CHR$ (24 
13:r$="":GOTO 1249 

1299 1F r=13 THEN IF non$="" THEN CLS#3:PRINT#3,help$(2 
,1);m$(2);:GOSUB 2369:G0T0 1269 ELSE GOSUB 1259:GO0T0 12 
68 

1219 IF r=224 THEN 1=1:GOSUB 2499:G0SUB 229ÿ:G0T0 1149 

1229 IF r€>45 AND (r<48 OR r>57) AND (r<65 OR r>99) THE 
N PRINT CHR$(7);:G0T0 1199 

1239 IF POS(#2)=21 THEN PRINT CHR$(7);:GO0T0 1198 

1249 non$=LEFT$(non$,POS(#2)-13)+r$:PRINTH2,CHR$(24);r$ 
3CHR$ (24) ;:GO0TO 1198 

1259 LOCATE#2, 13,3:PRINTH2, CHR$ (24) ; SPACES (8) ; STRINGS (8 
, 8) ;non$ ; STRING$ (LEN (non$), 8) ;CHR$ (24) ; :RETURN 

1264 IF non$="" THEN 1139 ELSE PRINT CHR$(21);:file$=no 
n$+",.NDX":0PENIN files: INPUTH9, pp, paax, rnax:PRINT CHR$( 
6) ; :CLOSEIN 


Non d 


1278 ON 1 GOTO 1318,1378, 1429, 2268 
1288 

1299 ’ Crfer/Compl{ter une sfrie 
1398 


1319 IF pp THEN IF pp<pnax THEN fidx=1:fsav=1:CHAIN"CRE 
ECRAN. BAS" ELSE CLSH2:LOCATE#2,9,1:PRINT#2, "S{rie conpl 
Ite !";:LOCATE#2,6,3:PRINT#2, "Appuyez sur une touche";: 
CALL &BB96:1=3:G0SUB 2499:1F fdir=1 THEN fdir-g:CLSH1:G 
OTO 1138 ELSE GOSUR 2299:G0T0 1148 

1328 CLS#2:LOCATE#2, 4, 1:PRINT#2,non$;".DAT n'existe pas 
"s:LOCATE#2, 4, 2:PRINTH2, "Voulez-vous le crier O/N ?";:C 
LS#3:PRINT#3,help$(3,9);help$(1, 1) ;m$ (2) ; : LOCATE#2, 15,3 
:fap=2:GOSUB 2339 

1339 IF rr THEN fsav-f:CHAIN"CREECRAN. BAS" ELSE fan-ÿ:G 
OSUB 2499:GOSUB 2299:G0T0 1149 

1349 

1359 ? Crier le prograsne d'application 

1369 

1378 IF pp=pmax THEN CHAIN"CREBASIC. BAS" 

1389 GOSUB 2489:1F rr THEN fidx=1:fsav=1:CHAIN"CREECRAN 
.BAS" ELSE fan:ÿ:1:5:G0SUB 249ÿ:1F fdir:1 THEN fdir:g:C 
LS#1:G0T0 1139 ELSE GOSUB 2298:GO0T0 1149 

1399 

1499 ' Modifier/Mettre @ jour une s{rie 

1419 

1429 MODE 1:BORDER 8: INK 9,9:INK 1,15:INK 2,9:INK 3,2:W 
INDOW#1,1,13,1,11:PAPER#1,1:MINDOW#2, 14, 49,1, 15:PAPERH2 
,3:VINDOUW#4, 1, 49,17, 19:PAPER#4, 2:PEN#4, 9: MINDOW#S, 1,12, 
14, 14:PAPER&S, 1 :PENKS, 9 

1439 CLS#1:PEN#1,2:PRINTH1,CHR$ (159) ;STRINGS (11, 154) ;CH 
R$(156);:FOR i=1 TO 2:PRINT#1,CHRS (149); STRINGS (11,9) ;C 
HR$ (149) ;:NEXT i:PRINT#1, CHR$(151); STRING$ (11,154) ;CHR$ 
(157);:FOR i=1 TO 6:PRINT#1,CHR$ (149) ;,STRING$ (11,9) ;CHR 
$(149);:NEXT i 

1448 PRINTH#I,CHR$ (147); STRINGS (11, 154) ;CHR$ (153) ; :PENFI 
,3:LOCATE#,2,2:PRINT#1,"MISE A JOUR"; :LOCATE#1,5,3:PRI 
NT#H{, "PAGES"; :WINDOW#1,3,11,5,19:CLS#1:FOR i=1 TO 6:PRI 


HB 


)NB 


)LJ 


»XQ 





NTH,m2$(i);:NEXT i:CLS#S:PRINTHS, non$;". DAT"; 

1458 CLS#2:PEN42, D:PRINT#2, CHR$ (159) ;STRINGS (7,154); CHR > KZ 
$(158),STRINGS(7, 154) ;CHR$ (158) ; STRINGS (9, 154) :CHR$ (156 
D3:FOR i=1 TO 2:PRINTH2,CHR$ (149) ;STRINGS(7,9) ;CHR$ (149 
);STRINGS (7,9) ;CHR$ (149) ;STRING$ (9,9) ; CHR$ (149) : :NEXT i 
1469 PRINTH2,CHR$ (151) ;STRINGS (7,154); CHR$ (159) ;STRINGS DJT 
(7,154); CHR$(159) ; STRINGS (9,154); CHR$(157);:FOR i=1 TO 

19: PRINT#2,CHR$ (149) ; STRINGS (7,9) ;CHR$ (149) ; STRING$ (7,9 
);CHR$ (149) ;STRING$ (9,9) ;CHR$ (149) ; :NEXT i 

1479 PRINT#2,CHR$ (147) ;STRINGS(7, 154) ;CHR$ (155) :STRINGS DEK 
(7,154) ;CHR$ (155) ;STRINGS (9, 154) ; CHR$ (153) ; :PEN#2, 1 : LOC 

ATE#2,2,2:PRINT#2, "NUMERO" ; STRING$ (2,9) ; "NUMERO" ; STRING 
$(2,9);"NOMBRE DE"; 

1489 LOCATE#2,2,3:PRINT#2, "DE RANG";CHR$(9); "DE PAGE":C DPY 

HR$ (9) ; "FENETRES" ; :CLS#4 : PENN3, 1 :GOSUB 2518 

1499 PEN#3,3:WINDON#2, 17,35,5,14 )2Y 
1599 OPENIN file$:INPUT#9, pp, pmax, rmax:FOR i=1 TO pmax: DMX 
INPUT#9, index(i,9),index(i,1):NEXT i:CLOSEIN:DIM tri(99 
):FOR i=1 TO pmax:tri(index(i,#))=i:NEXT i:it=1:PEN#2,8 
:LOCATEH2,1,it:FOR ir=1 TO MIN(I9,rmax):GOSUB 2998:NEXT 
irtir={siup=i 

1519 PRINT#3,help$(2,1):PRINTH3,m$(3);n$(2); >MQ 

>YA 
1539 PAPERH,2:PENN1,8:GOSUB 2928:r=8:MHILE r<>13:GOSUB HW 
2539 :PAPER#1,1:PEN#1,3:G0SUB 2829:FO0R i=5 TO 9:1F rc 
om(i) THEN NEXT i 

1549 ON i-5 GOSUB 2939,2849, 2939, 2040 :PAPER#1,2:PEN#1,9 UN 
:GOSUB 2829 :VEND 

1559 IF iup=6 THEN GOSUB 1969:GO0T0 1128 )FN 
1569 PAPER#1, 1:PEN#1,3:GOSUB 2929 :PAPER#2,2:LOCATE#?, 1, HZ 
it:GOSUB 2898:PAPER#2, 3:PRINT#4," ";com$(iup) ;:GOSUB 24 
69:GOSUB 2179 

1578 IF fan THEN fan=f:LOCATE#2, 1, it:GOSUB 2498:CLS#4:G >KQ 
0TO 1538 

1589 IF iup>2 AND index(tri(ir),1)=8 THEN LOCATE#4, 2,2: )EU 

PEN#4,3:PRINT#4, "Page vide ! ";:PEN#4,D:PRINT#4, "Appuy 

ez sur une touche"; :CLEAR INPUT:CALL &BB96:CLS#4 : LOCATE 
#2,1,it:GOSUB 2999:G0T0 1538 


1599 ON iup GOTO 1639, 1689, 1758, 1818, 1949 >GK 
1699 »XK 
1619 ’ Ajouter )YA 
1629 »YB 


1639 pnax=pmax+l:rmax=rmaxt{:1F nun=rmax-1 THEN tri(rma )YA 
x)=pnax ELSE FOR i=raax TO num+t2 STEP -{:tri(i)=tri(i-1 
J:NEXT ji:tri(i)=pmax 


1649 GOSUB 2159:CLS#4:GOTO 1539 )YQ 
1659 ? DYE 
1669 ' D{placer YF 
1679 ? »YG 


1689 ri=nun:LOCATEH4,5,2:PRINT#4, "APRES LA PAGE DE RANG >VR 
No ";:GOSUB 2969:G0SUB 2178:1F fan THEN GOTO 1579 ELSE 
r2=nun:stri=tri(ri) 

1699 IF r22ri THEN FOR i=ri TO r2-l:trili)=tri(it{):NEX >VZ 

Tistri(i)=stri 

1799 IF ridr2 THEN FOR i=ri TO r2+2 STEP -{:tri(i)=tri( >EP 

i-1):NEXT i:tri(i)=stri 

1719 IF ri=r2 THEN PRINT CHR$(7) ; :LOCATE#2, 1, it:GOSUB 2 >XL 

989:CLS#4:G0TO 1539 ELSE GOSUB 2158:CLS#4:GOTO 1539 


1729 )YC 


LE” 


1739 ? Supprimer 

1749 

1759 LOCATEH4, 2,2:PRINT#4, "Confirmez par ";CHR$(34);"o" 
:CHR$(34):;" ou ";CHR$(34) ; "0"; CHR$ (34); :GOSUB 2538:1F r 
$O"0" THEN CLS#4:LOCATE#2,1,it:GO0SUB 2998:GOT0 1538 
1769 rnax=rmax-1:index(nun, #)=8:FOR i=ir T0 rmax:tri(i) >FU 
stri(iti):NEXT jsir=irt(irot)sitsit+(it>1):GOSUB 2158: 

F roax(19 THEN GOSUB 1988 


>YD 


>RA 


1778 CLS#4:GOTO 1538 >NN 
1788 YYJ 
1799 ? Modifier >YK 
1899 >YB 


1819 fmax=index(tri(ir),1):1F fmax<4 THEN fuap=4:LOCATER 
4,2,2:PRINT#4, "Ajouter une ou des fenetres O/N ? ";:G0S 
UB 2339 ELSE ffmax-fmax:fupd=1:GOT0 1898 

1829 IF rr THEN LOCATE#4,2,3:PRINT#4, "Combien ? ";:PAP 
ER#4,1:rr$=" ":GOSUB 1998 ELSE IF fan THEN 1579 ELSE ff 
nax=fnax:fupd=1:G0T0 1898 

1838 r=9:UHILE rO13 

1849 GOSUB 2539:1F r=127 THEN IF rr$=" " THEN PRINT CHR 
$(7);:GO0T0 1888 ELSE rr$=" ":GOSUB 1999:GO0T0 1888 


1859 1F r-=224 THEN fan=1:PAPER#4,2:G0T0 1579 >LW 
1869 IF r€>13 THEN rr$=r$:nfen=INSTR("123",r$):1F nfen= XF 
5 OR fmaxtnfen>4 THEN PRINT CHR$(7); ELSE GOSUB 1998 
1879 IF rr$=" " THEN PRINT CHR$(7);:r=ÿ >FT 
1889 WEND:ffmax-fnaxtnfen: fupd=2:fidx=1 )LG 
1899 pupd=tri(ir):GOSUB 1968: fsav=1:CHAIN"CREECRAN. BAS" ?EN 
1999 PRINT#4,CHR$(B) ;rr$; :RETURN )CD 
1919 ? D 
192ÿ ’ Refaire )YE 
1939 ? DYE 
1949 fupd=3:pupd=tri(ir):GOSUB 1969:fsav=1:fidx={:CHAIN )2T 
"CREECRAN. BAS" | 
1959 *------------"-"" DYH 
1968 OPENOUT file$:WRITE#9, pp,paax,rmax:FOR i=1 TO pmax NM 
:WRITE#9, index(i,#),index(i,1):NEXT j:CLOSEOUT:01d$=nom 
$+",BAK"::ERA,o1d$:ERASE tri:RETURN 
1979 ------------- >YK 
1989 PRINT#2," ";CHR$(149);" MsCHRS(149);" KR 
"; RETURN 
1998 *------------"-- )1B 
2989 PRINT#2, USING fora$:ir;tri(ir);index(tri(ir),1);:R >LX 
ETURN 
DPI ESS seen XF 
2529 LOCATE#1, 1, iup:PRINT#1,m2$(iup); :RETURN >q 
2838 iup=iup-6#(jup=1)-1:RETURN )BE 
2649 iup=iup+iup*(iup=6)+1:RETURN >DX 
2959 ‘---------------""-""""-- >XK 
2968 nus=trilir)*ABS(iup>2)+ir#ABS(iup<3) :PAPER#4, 1:PRI DYF 
NT#4, USING" ##" ; num; : PRINT#4, STRINGS$ (2, 8) ; :PAPERN4, 2:RET 
URN 
2879 '----------------"- >YB 
2889 IF ir=1 THEN RETURN >TD 


2998 1F it>1 THEN LOCATEH2, 1,it:G0SUB 2988:it=it-1:ir=i >GN 
r-1:PAPER#2,2:LOCATE#2, 1,it:GOSUB 2998:PAPERE2, 3: GOSUB 
2869:RETURN 

2199 LOCATE#2,1,1:ir=ir-1:sir=ir:PAPER#2,2:GDSUB 2698:P DC 
APER#2,3:FOR ir=sir+{ TO sir+9:G0SUB 2889:NEXT ir:ir=si 
r:GOSUB 269 :RETURN 


29 





2118 IF ir>=rmax THEN RETURN 

2128 IF it(19 THEN LOCATE#2,1,it:GOSUB 2998:it=it+{sir: 
ir+{:PAPER#2, 2: LOCATER2, 1,it:GOSUB 2998 :PAPER#?, 3:GOSUB 
2969 :RETURN 

2139 LOCATE#2,1,1:sir=ir+t1:FOR ir=sir-9 TO sir-1:G0SUB 
2898:NEXT ir:PAPER#2,2:G0SUB 2999 :PAPER#2, 3:ir=sir:G0SU 
B 2969:RETURN 

2158 sir=ir:isir-it#1:FOR j=1 TO rmax:index(tri(j),8):j 
INEXT j:LOCATE#2,1,1:FOR ir=i TO MIN(i+9, rmax) :GOSUB 29 

99: NEXT ir:ir=sir :RETURN 

2179 CLEAR INPUT:CALL &BBSG:WHILE INKEY(18)=-1 AND INKE 

Y(6)=-1 

2188 IF INKEY(9)>-1 THEN GOSUB 2989 

2198 IF INKEY(2)»-{ THEN GOSUB 2118 

2299 1F INKEY(9))-1 THEN fan=1:RETURN 

2219 WEND:RETURN 


2238 ? 

2248 ' Supprimer un fichier de donnfes 

2258 

2269 CLS#2:LOCATE#2,5,2:PRINTH#2, "Confirmez par ";CHR$(3 
4);"o";CHR$S(34);" ou "sCHR$(34) ; "0"; CHR$ (34) ; :CALL &BBS 
6:1F INKEY(34)>-1 THEN file$=nom$+".NDX"::ERA file$:fil 
e$=nom$+",.DAT": ERA, files 

2279 1=4:GOSUB 249ÿ:fdir=9:CLS#1:GOT0 1138 

2299 MOVE 49,484-(32x1),3,1:DRAUR LEN(m1$(1))#16+16,9:D 
RAUR 9,-26:DRAUR -(LEN(n1$(1))#16+16),B:DRAUR 9, 26:RETU 
RN 

2398 1=1-54x(1=1)-1:RETURN 

2318 1=1+1x(1=5)+1:RETURN 

2339 GOSUB 2538:1F r$="0" THEN rr=1:PRINT#fmp, "OUI"; EL 
SE IF r$="N" THEN rr=8:PRINT#fnp, "NON"; ELSE IF r=224 T 
HEN rr=ÿ:fan=1:RETURN ELSE PRINT CHR$(7);:GOTO 2338 
2349 GOSUB 2539:1F r=13 THEN RETURN ELSE IF r=224 THEN 
rr=f:fan={:RETURN ELSE IF r=127 THEN r$="":FOR i={ TO 3 
:PRINT#Hfmp, CHR$(8) ;CHR$ (16) ;:NEXT i:G0TO 2338 ELSE PRIN 
T CHR$(7);:GOTO 2349 


2369 fdir=t:WINDOW SWAP 9,1:CLS:PEN 3:LOCATE 1,1::DIR," 
#,.DAT":xd=1:yd=4:GOSUB 2458 

2379 IF non$=" "THEN nom$="":CLS#2:PRINTH2," 
Aucun fichier de donntes ! ";:LOCATE#2,6,3:PRINT#2, "App 
uyez sur une touche"; :CALL &BBY6:WINDOW SWAP 9,1:fdir=8 
:CLSH1:GOSUB 2499: RETURN 

2389 LOCATE xd,yd:IF INKEY(8)=8 AND xd=16 THEN xd=1:PRI 
NT n$;:GOSUB 245ÿ 

2399 IF INKEY(1)=9 AND xd=1 THEN LOCATE 16,yd:IF COPYCH 
R$(#D)>" " THEN xd=16:LOCATE 1,yd:PRINT n$;:GOSUB 2458 
2488 1F INKEY(9)=9 AND yd>4 THEN yd=yd-{:PRINT n$; :GOSU 
B 2459 

2418 IF INKEY(2)=9 THEN LOCATE xd,yd+i:1F COPYCHRS(#8)> 
" # THEN LOCATE xd,yd:PRINT n$::yd=yd+1:GOSUB 2458 

2428 IF INKEY(18)=8 OR INKEY(6)=9 THEN WINDOW SWAP 9,1: 
RETURN 

2438 IF INKEY(9)>-1 THEN WINDOW SWAP 8,1:fdir=8:CLS#1:G 


XX 
HD 


LA 


KY 


>XK 
>HH 


>YB 
»JD 


>BZ 
>BU 
>FD 
>MZ 
NX] 
>XK 
JYA 
)YB 
)UJ 


XKP 
NE 
HD 


)UA 
>UB 
>XK 
>CD 


)FE 


)YC 
NY 


>GZ 


»XQ 
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OSUB 2498 :RETURN 

2448 CALL &BB96:G0T0 2389 

2458 LOCATE xd,yd:n$="":FOR i=xd TO xd+ii:LOCATE i,ydir 
$=COPYCHR$S (#8) :n$=n$+r$:NEXT i:LOCATE xd, yd:PAPER 3:PEN 
Q:PRINT n$;STRING$(12,8);:PAPER 1:PEN 3:nom$=LEFTé(n$, 
8):GO0SUB 1259:RETURN 

2479 CLS#2:LOCATE#2,5, L:PRINT#2,non$;".DAT n'existe pas 
"3:LOCATE#2,6, 3:PRINT#2, "Appuyez sur une touche": :CALL 
&BB96:nom$="" : RETURN 

2489 CLS#2:PRINT#2," Strie incomplite !";:LOCATE 
2,2,2:PRINT#2, "Voulez-vous la compliter O/N ?";:CLSH3:P 
RINTH3, help$(3,8);help$(1,1):m$(2) ; :LOCATE#2, 15,3: fmp=2 
:GOSUB 2339 :RETURN 

2499 WINDOW#2, 4,37, 15, 19:PAPER42, 9: CLSH2:nom$="" : RETURN 


2518 wf=3:cg=1:cd=4ÿ:ch=21:cb=25:cad=2:G0SUB 2579:W1INDO 
W#3,2,39,22,24:CLS#3:RETURN 

2539 CLEAR INPUT:r$="":UHILE r$="":r$=UPPERS(INKEYS) :VE 
ND:r=ASC(r$) :RETURN 

2559 LOCATE 39,25:PRINT CHR$(24); "APPUYEZ SUR UNE TOUCH 
E";CHR$ (24) ;:CALL KBBBG:RETURN 


2574 hb=cb-ch-1:gd=cd-cg-1:WINDOWEwS, cg, cd, ch, cb:CLSHuf 


2589 PRINT#wf, CHR$(box(cad, 1)) ;STRING$ (gd, box (cad, 2));C 
HR$ (box (cad, 3) ); 

2599 FOR i=1 TO hb:PRINTHwf, CHR$ (box (cad, 4)) ;STRINGS (gd 
9) ;CHR$(box(cad,5))::NEXT i 

2609 PRINT#uf,CHR$(box (cad, 6)) ;STRING$ (gd, box (cad, 7) :C 
HR$ (box (cad, 8) ) ; :RETURN 


2629 PRINT CHR$(6);:1F DERR=146 THEN CLOSEIN:pp=8:pmax: 

f:rmax=Q:RESUME NEXT 

2639 ON ERROR GOTO ÿ 

2659 DATA 5,6,16,127,13,249,241,242,243,224,3,67, 71,68, 

244,245,246,247 

2669 DATA "CREER/COMPLETER UNE SERIE DE PAGES", "CREER L 

E PROGRAMME D'APPLICATION", "MODIFIER/METTRE A JOUR UNE 

SERIE", "SUPPRIMER UN FICHIER DE DONNEES", "QUITTER LE PR 

OGRAMME" 

2679 DATA "AJOUTER ‘,"DEPLACER ", "SUPPRIMER", "MODIFIER 
",'REFAIRE "RETOUR " 

2689 DATA "AJOUTER { PAGE APRES LE RANG No ","DEPLACER 

LA PAGE DE RANG No ", "SUPPRIMER LA PAGE No ", "MODIFIER 

LA PAGE No ","REFAIRE LA PAGE No " 

2698 DATA 135,131,139,133,138,141,149, 142 

2799 DATA 158,154,156,149,149,147,154,153 

2719 DATA 259,251,252,253,219,254,229,255 

2728 DATA 229,234, 235, 236, 237, 239, 248, 249 

2739 DATA 221,222,223,224, 225,226, 227, 228 

2748 DATA 42,42,42,42,42,42,42,42 

2758 DATA 238,238, 238, 238, 238, 238, 238, 238 

2769 DATA 293,293, 293, 203, 203, 293, 293, 293 

2778 DATA 239,239,239, 239, 239, 239, 239, 239 


)TA 
UD 


)YE 
>PF 


V 


P2 


CT 


>XK 
)PC 


)YB 
>ER 


)YD 
LS 


NF 
>DU 


>2T 
QE 
LL 


)YB 
DEA 


NL 
DYE 
>PA 


MU 


)NV 


KB 


FR 
>FH 
>FU 
)FX 
>FQ 
> 
>FG 
)FN 
>FP 


2788 DATA 231,231,231,231,231,231,231,231 )F2 
2799 DATA 232,232, 232,232, 232, 232, 232, 232 )FJ 
2899 DATA 233,233, 233,233, 233, 233,233, 233 )FJ 
2819 DATA 128,244,126,247,246,128,245, 128 >FN 
2829 DATA 297,287,297,297,287,297,287,297 )FV 
2838 DATA 127,127,127,127,127,127,127,127 )FE 


2849 DATA 2,1,2,4,0,7,7,33,19,15,3,1,2,3,14, 4,2, "NOMBRE DWG 
DE PAGES-ECRAN ?" 

2859 DATA 1,1,2,1,8,2,4,37,1,23,8,1,3,2,9,9,8, "PAGE No >KH 

RANG No" 

2869 DATA 1,1,9,4,8,8,5,36,3,5,6,1,3,2,27,2,1, "NOMBRE D >PG 
E FENETRES ?° 

2879 DATA 1,4,2,1,8,3,5,36,5,22,2,2,1,8,8,9,0," >FB 
FENETRE No","","", "TYPE :° 

2889 DATA 2,4,2,3,8,5, 12,39,7,17,3,3,9,2,8,9,9,"MESSAGE >QK 
","MENU HORIZONTAL", "MENU VERTICAL", "SAISIE" 

2898 DATA 3,1,9,1,1,9,6,35,11,11,1,2,2,1,4,9,9,"VOULEZ- )>AG 
VOUS UN CADRE O/N? " 

2998 DATA 3,2,9,1,1,9,6,35,13,14,1,2,2,1,8,9,9, "TITRE O AJ 
U EN-TETE EN", "PREMIERE LIGNE O/N? 

2919 DATA 3,2,9,1,1,9,6,35,16,17,1,2,2,1,8,8,9, "REPONSE >VN 
PAR OUI OÙ NON", "ATTENDUE O/N? " 

2929 DATA 3,1,8,1,1,8,6,35,19,19,1,2,2,1,8,8,9, "LIGNES RB 
CENTREES O/N? " 

2939 DATA 3,1,9,1,1,8,6,35,21,21,1,2,2,1,8,9,9, "LIGNES DVT 
JUSTIFIEES O/N? " 

2949 DATA 5,6,9,2,8,9,1,48,25,25,1,0,2,3,8,8,9,"No ","F )LB 
ENETRE", "CADRE", "TEXTE", "COULEURS", "RETOUR" 

2958 DATA 5,1,9,1,0,9,1,49,25,25,1,1,2,3,8,9,9,"POINTE BH 





Ru 


SUR" 

2969 DATA 7,2,9,2,0,9,12,49,25,25,1,1,2,3,9,9,9,"S/MENU Li 
","S/PROGRAMME" 

2979 DATA 7,1,9,4,9,9,12,49,25,25,1,1,2,3,16,1,2,"S/MEN >LM 

U PAGE No * 

2984 DATA 7,1,9,4,8,9,12,49,25,25,1,1,2,3,18,1,19,"S/PR )QA 
OGRAMME CODE * 

2994 DATA 7,1,9,4,0,0,1,12,25,25,1,1,2,3,19,1,2, "LONGUE >BF 
UR:" 

3898 DATA 7,1,9,4,0,9,13,19,25,25,1,1,2,3,6,1,1,"TYPE:" DWR 


3919 DATA 7,1,8,4,9,9,29,49,25,25,1,1,2,3,19,1,6,"VARIA >CG 
BLE:" 

3428 DATA 7,2,2,1,1,1,13,28,11,14,2,1,2,3,9,8,8, "PAGE T )XA 
ERMINEE?","  O/N? * 

3839 DATA 7,4,2,1,8,1,9,31,19,16,3,1,2,3,8,8,9,"", "Vous >KR 
devez di{finir'","toutes les fenetres", "Pressez une tou 
che" 

3849 DATA 7,2,2,1,8,7,10,31,9,17,6,1,2,3,8,0,9,"","VOUL >GU 
EZ-VOUS" 

3958 DATA 7,2,9,3,8,0,11,38,12,16,2,1,2,3,9,89,8,"MODIFI DUC 
ER LA PAGE ?*,"REFAIRE LA PAGE ?" 

3969 DATA 7,3,8,1,1,9,11,38,12,16,2,1,2,3,9,8,8,"EFFACE DQR 

R L'ECRAN AU", "CHANGEMENT DE PAGE"," O/N?" 

3979 DATA 7,3,8,1,1,9,11,39,12,16,2,1,2,3,9,9,8," 

RROMPRE LE"," TRAVAIL O/N?"," ® 

3889 DATA 7,2,2,1,8,2,11,38,12,16,6,1,2,3,9,8,8,"","SAU GG 

VEGARDE" 

3499 DATA 1,3,2,1,9,3,4,37,19,15,3,2,3,1,9,9,9,""," >PN 

CHARGEMENT DU FICHIER", "Ah si j'avais un acc}s direct!" 


INTE AU 


| GESTION BANCAIRE 6128 


LA GESTION DE COMPTE BANCAIRE INDISPENSABLE POUR VOTRE CPC 


Quelques caractéristiques _: 


- Gère jusqu’à 10 comptes (banque, épargne, caisse...) 
- Codes secrets possibles pour chacun des comptes. 
- Saisie des opérations très simple, avec aide en ligne. 


- Fonction archivage, vous permettant de stocker année par année 


vos opérations, 


- Fonction TRIER, pour obtenir des listes d'opérations par dates 


croissantes. 


- À l'aide de POINTER, vous pouvez effectuer la liaison avec votre 

















MODIFIER RELEVES 


CRITERE | 


SUPPORT / SORTIL 
DATE TYPE No ORDRE/OBJET DEBIT CREDIT SOLDE 


Po os PAPE Eat 


QUE 10908 AMSTRAD CPC 612 2990. 
QUE. 10001 FH RÉDECIN l 


IE 

IE 

IEX. 

RENEN AR RSENENT s.S, 
LE ELEPHONE nr 
L Le DRE y oi: 
ue mu D 
VAE di os FE ro 


X vs] BANQUE TEST Ho 1234578901  Occup. 1 X 


SELECTION 





RETOUR SUPPORT/SORTIE 
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relevé de banque ‘officiel’. >< NO a NS dures 


- NOMBREUSES POSSIBILITES DE SORTIES : BON DE COMMANDE à retourner à 
- Recherche particulière répondant à 1 ou plusieurs critères : MICROLOGIC - B.P. 18 - 91211 DRAVEIL CEDEX 
parmi les suivants : -DATES DE DEBUT ET DE FIN ! par téléphone:(1) 69.21.61.65 / par minitel (1) 69.24.49.08 
-MONTANTS MINIMUM ET MAXIMUM : 
-UN LIBELLE PARTICULIER Nom : 








À, ... PPS PNA ORRLRR = NOR nm Prénoms. 
- Liste de chèques pouvant répondre aux critères suivants: ! Adresse: rene 
-DATES DE DEBUT ET DE FIN : Code postal: Ville San qe de fer, 
-NUMEROS DE DEBUT ET DE FIN. DlJe commande GESTION BANCAIRE 6128 , au prix 
- Relevé complet -ENTRE DATES de 265,00 Frs. (port compris) 
“AFFICHAGE SOLDE RÉEL OÙ SOLDE :[Je désire recevoir votre CATALOGUE GRATUIT 








OPERATIONS POINTEES. 
- Sorties sur ECRAN , IMPRIMANTE ou DISQUETTE. 
- UTILITAIRES IMPRIMANTE, ECRAN, COPIE D'ECRAN... 
- UTILISE LES 128 Ko DE VOTRE CPC 6128. 


‘ présentant votre autres produits pour CPC. 
Je choisis de régler par : 


Expire 
| D CHEQUE CB. ET Nour ie FIN 


Signature 
il MANDAT [ ] CONTRERBT (+35 Frs) 











489 IF ftype=4 THEN ERASE rep$,cx,cy, lc, fc:DIM rep$(11) >FK 


MODBASE BAS ,CX(1D),cy(11),Ict11),fo(11):FOR i=1 TO 11:READ cxti),c 
e y), le(i),fe(i}, I$(i):NEXT i:GOTO 588 








498 IF 1139 THEN FOR i=1 TO I1:READ I$Ci):NEXT i )PJ 
| 'popoonsress )FA 599 PAPER #f,a:PEN #f,b:WINDOW #f,cg,cd,ch,cb:CLS #f:1F BL 
2 'MODBASE, BAS )FB fcad=2 THEN GOSUB 538 
3 )FC 519 GOSUB 768:RETURN | QC 
19 SYMBOL AFTER 219 DNJ 528 ".... DESSIN DU CADRE ... >RH 
28 SYMBOL 219,38, 38, 36, 36, 36, 36, 38, 38 DZ | 539 bh=cb-ch-1:gd=cd-cg-1 >UH 
39 SYMBOL 229,9,9,255,9,9,255,255,8 DAC | 549 IF ftitre=g THEN hb=bh:LOCATE #f,1,1:G0SUB 569:RETU DK 
48 SYMBOL 221,9,55, 72, 72,55, 72, 72,72 >CK RN 
59 SYMBOL 222,9,219,36,36,219,9,9,9 BE | 559 IF ftitre=3 THEN hb=1:LOCATE #f,1,1:G0SUB 56#:hb=bh >BV 
69 SYMBOL 223,9,236, 18,18, 236,18, 18,18 >DU -3:G0SUB 568 :RETURN 
78 SYMBOL 224, 72, 72,48, 72,72, 48, 72,72 >DP | 569 ON cad GOSUB 699,618,629,639,649,659,669,679,689,69 >TD 
89 SYMBOL 225,18,18,12,18,18,12,18,18 )CF | 9,796,719,729,730, 74Q:READ c1,c2,c3,c4, c5, c6, c7,cB 
98 SYMBOL 226, 72, 72, 72,55, 72, 12,55,0 CN | 578 PRINT #f,CHR$(c1);STRINGS (gd, c2) ;CHR$(c3); >QY 
189 SYMBOL 227,9,8,8,219, 36,36, 219,8 )BV 588 FOR i=1 TO hb:PRINT #f,CHR$(c4);STRINGS (gd, CHR$(9)) >XK 
119 SYMBOL 228, 18,18, 18,236, 18, 18,236,8 )ED ;CHR$(c5);:NEXT i 
129 5YMBOL 229,8,127,64, 73, 86, 72, 72,89 )DY 599 PRINT #f,CHR$(c6);STRING$ (gd, c7):CHRS(cB);:RETURN AD 
139 SYMBOL 234,9,255,9,153,192,9,9,9 )BB | 699 RESTORE 308:RETURN >TX 
149 SYMBOL 235,8,254, 2,146, 196,18, 18, 19 DEL | 619 RESTORE 319:RETURN )TZ 
158 SYMBOL 236, 89, 72, 72,88, 88, 72, 72,88 DX | 628 RESTORE 328:RETURN >TB 
168 SYMBOL 237,19,18,18,19,19,18,18,18 DDU | 639 RESTORE 339:RETURN )TD 
178 SYMBOL 239, 89, 72, 72,86, 73,64, 127,9 DE | 648 RESTORE 348:RETURN >TF 
188 SYMBOL 248,8,9,9,192,153,8,255,8 BH | 659 RESTORE 359:RETURN >TH 
198 SYMBOL 249, 19,18, 18,196, 146,2, 254,8 )EX | 668 RESTORE 368:RETURN >TK 
299 SYMBOL 259,8,63, 127,96, 96, 193,180, 109 GK | 679 RESTORE 379:RETURN >TH 
219 SYMBOL 251,9,255,255,8,4,255,0,9 BEM | 689 RESTORE 389:RETURN >TP 
229 SYMBOL 252,9,252,254,6,6, 239, 38, 38 DH | 699 RESTORE 399:RETURN TR 
238 SYMBOL 253, 108,199, 199, 199,100, 190,109, 109 DLF | 799 RESTORE 49:RETURN >TZ 
249 SYMBOL 254,199, 199,193, 96,96, 127,63,4 >GU 719 RESTORE 419:RETURN )TE 
258 SYMBOL 255, 38,38, 238,6,6,254, 252,9 >DP | 729 RESTORE 429:RETURN >TD 
269 DEFINT a-z:del#=CHR$(B)+CHR$(16):DEF FNx=-(1+fcad/2 AH 739 RESTORE 439:RETURN >TF 
)x(i=8)-ng#(i)9):DEF FNy=-2x(i=8)-(1+fcad/2-(ftypeC1)+ 749 RESTORE 449:RETURN >TH 
ftitret(i-1)#(1-(ftypet>1)))#(128) 759 ’.... ECRITURE DU TEXTE >TC 
278 DIM 1$(12),com(8),hpos(9),rep$(18),cx(19),cy(18), lc >MH 769 PEN #f,c:0N ftype GOSUB 899,919,889, 89ÿ:RETURN DUZ 
(19),fc(19) 770 'anmnnrompommamzcz--- )TE 
289 DATA 13,249, 241,242,243,16,127,5 )BP 788 message, menu vertical, saisie >TF 
298 FOR i=1 TO 8:READ com(i):NEXT i:MODE 1:G0T0 2919 DVU |  79g "===" ses >TG 
399 DATA 135,131,139,133, 138,141, 148,142 )EQ | 899 IF ftitre:3 THEN i-0:G0SUB 879 >BC 
319 DATA 159,154,156, 149,149, 147,154, 153 DER | 819 IF 11=g THEN RETURN >RH 
328 DATA 259,251, 252, 253,219, 254, 228,255 )EC 828 IF fcentre={ THEN FOR i=1 TO 11:GOSUB B79:NEXT i:G0 >FQ 
339 DATA 229,234, 235, 236,237, 239, 248, 249 DEF | TO 849 
349 DATA 221,222, 223, 224, 225,226, 227, 208 )EZ 839 FOR i=1 TO 11:LOCATE #f,FNx, FNy:PRINT #f,1$(i);:NEX >DG 
354 DATA 42,42, 42,42,42,42, 49,42 2 ARR 
369 DATA 236,238, 238, 238, 238, 238, 238, 238 )FG 849 IF frep=l THEN GOSUB 1929 JUN 
378 DATA 293,203, 293, 283, 293, 203, 203, 293 DEX | 658 IF ftype=3 THEN GOSUB 1998 >XU 
389 DATA 239, 238, 238, 238, 238, 239, 238,23 DEY | 868 RETURN >ZK 
394 DATA 231,231,231,231,231,231,231,231 DEH | 878 xx=1+(cd-cg+i-LEN(1$(i)))\2:LOCATE Hf,xx,FNy:PRINT YU 
A99 DATA 232, 232,232, 232, 232, 232, 232, 232 )EH #f,1$(i);:RETURN 
419 DATA 233, 233, 233, 233, 233, 233, 233, 233 DET | 918 RETURN >2F 
429 DATA 128,244, 128, 247,246, 128, 245, 128 )EX 1929 RETURN )EG 
439 DATA 297,287,207,247,297,287, 287, 287 )ED 1999 RETURN >FD 
449 DATA 127,127,127,127,127,127,127,127 DEN 1189 RETURN )FD 
45ÿ *xxxx AFFICHAGE DES FENETRES #x44 >RK 1449 *------------" )tB 
469 ERASE 1$:DIM 1$(12):READ f,11,ftype,fcad,ftitre,fre >WB 1458 iop=iop-11#(iop=1)-1:RETURN >CY 
P,fcentre,cad,cg,cd,ch,cb,ng,a,b,c:1F ftitre=3 THEN REA 1464 iop=ioptiop#(iop=11)+1:RETURN )EZ 
D 1$(4) 1478 PRINT CHR$(7); NE 
479 IF ftype=2 THEN READ sp:ERASE hpos:DIM hpos(9) >VA 1489 RETURN >FG 
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1499 
1599  Interrogation Clavier 
1519 ? 
1529 CLEAR INPUT:r$="":UHILE r$="":r$=UPPERS(INKEYS) :VE 
ND:r=ASC(r$) :RETURN 

1538 


918 iop=8:GOSUB 1469:hpos(1)=mg:lign$=1$(1) 

928 FOR j=2 TO Il:lign$=lign$+SPACES$(sp):hpos(j)=LEN(li 
gn$)tng:lign$=lign$+1$(j):NEXT j:PEN#f, c:LOCATE#f,ng, 1: 
PRINT#f,lign$; 

938 PENHf,b:GOSUB 9B#:PEN#f,c 

949 r=9:MHILE rC>13:GOSUB 1529:GOSUB 989 

95ÿ FOR j=1 TO 5:1F r@com(j) THEN NEXT j 

969 ON j GOSUB 1489, 1459, 1469, 1459, 1469, 1478 

979 PENHf,b:GOSUB 988:PEN#f, c:WEND:choix=iop:RETURN 
984 LOCATE#f,hpos(iop),1:PRINT#f, 1$(iop) ; :RETURN 


MODMENUV.BAS 


1998 iop=t:gxv=16x(cg+mg)-38:gyv=16#(25-ch-fcad/2-ftitr 
e)+36 

1199 GOSUB 1149:r=8:WHILE r<>13:GOSUB 1528 :GOSUB 1148 
1119 FOR j=1 TO S:1F rOcom(j) THEN NEXT j 

1129 ON j GOSUB 1489, 1459, 1469, 1459, 1469, 1479 

1139 GOSUB 1149:WEND:choix=iop:RETURN 

1148 long=12+LEN(1$(iop))#16:MOVE gxv, gyv-32#iop, c, 1:DR 


AWR long, D:DRAUR 9,-26:DRAUR -long,S:DRAWR 9,26:RETURN = 


MODREP. BAS 


998 ? 


1929 GOSUB 1528:1F r=79 THEN PRINTHf,"OUl";:rr=r ELSE 1 
F r=78 THEN PRINT#f,"NON";:rr=r ELSE PRINT CHR$(7) ; : GOT 
0 1928 

1939 GOSUB 1529:1F r=13 THEN RETURN ELSE IF r=127 THEN 
r$="":FOR i=1 TO 3:PRINT#f,del$; :NEXT i:G0TO 1928 

1949 PRINT CHR$(7):;:GOTO 1939 

1958 ?’ rr=79 : OUI rr=78 : NON 


a 


»YG 
»XJ 
>XK 
EP 


)YB 


>TG 
>TH 
>RK 
HD 
>RP 


)YR 
JHC 
>G4 
)JZ 
AR 
>WZ 


>XK 
)YA 
)YB 
HT 


>XC 
HP 
XKA 
>HC 
)JH 


)TJ 


>XD 
YXE 
>PR 


>QK 


>XH 
Del 
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MODSAISI.BAS 


>XK 
YA 
)YB 
DR 





1189 WINDOW SWAP 9, f:CURSOR 1,1:i=1 
1199 PEN b:LOCATE cx(i),cy(i):PRINT STRING$(Ic(i),CHR$( >BN 
219));:1F rep$(i)=" ÿ" THEN rep$(i)="" ELSE PEN c:LOCAT 

E cxCi),cy(i):PRINT MID$(rep$(i),1-(LEFT$(rep$(i),1)=" 

")); 


1299 PEN b:LOCATE cx(i),cy(i):flag=g )EK 
1219 r$=INKEYS:1F r$="" THEN 1219 ELSE r=ASC(r$) PA 
1228 FOR j=1 TO 8:1F r€>con(j) THEN NEXT j HV 
1239 ON j GOSUB 1338, 1369, 1379, 1389, 1399, 1499, 1429, 1438 )EU 
‘IF j<9 THEN ON flag GOTO 1258,1269:G0T0 1219 

1249 fe=fce(i)+t:0N fc GOSUB 1278,129ÿ:G0T0 1219 NY 
1259 GOTO 1198 MG 
1269 CURSOR 9:WINDOW SWAP 9, f :RETURN )FF 
1279 IF r>31 AND r<(126 THEN GOSUB 131$ )CA 
1289 RETURN )FE 
1299 IF r>47 AND r(58 THEN GOSUB 1319 CZ 
1398 RETURN )EH 
1319 IF LEN(rep$(i))=lc(i) THEN PRINT CHR$(7);:RETURN  DYM 
1328 x=POS(#):rep$(i)=LEFT$(rep$(i),x-cx(i))+r$+MID$(r >KD 


ep$(i),x-cx(i)+1):PEN b:LOCATE cx(i),cy(i):PRINT rep$(i 
);:LOCATE x+1,cy(i) :RETURN 

1339 IF 11=1 THEN IF rep$(i)="" THEN PRINT CHR$(7);:LOC >GD 
ATE cx(i),cy(i):RETURN ELSE PEN c:LOCATE cx(i),cy(i):PR 

INT rep$(i);:flag=2:RETURN 

1348 PEN c:LOCATE cx(i),cy(i):PRINT MID$(rep$(i),{-CLEF >VA 
T$(rep$(i),1)2=" "));:flag=1:FOR i=1 TO 11:1F rep$(i)="" 
THEN PRINT CHR$(7); :LOCATE cx(i),cy(i):RETURN ELSE NEX 
Ti 

1358 flag=2:RETURN 

1368 IF 11=1 THEN RETURN ELSE PEN c:LOCATE cx(i),cy(i): 
PRINT MID$(rep$(i),1-(LEFT$(rep$(i),1)=" "))5:i=-1]x(iz= 
1)-(i-1)#(121):flag=1:RETURN 

1379 IF 11=1 THEN RETURN ELSE PEN c:LOCATE cxli),cyli): 
PRINT MID$(rep$(i),1-(LEFT$(rep$(i),1)=" "));:i=-(i=11) 
-(#1)#(C(11):flag=1:RETURN 

1389 IF POS(#9)=cx(i) THEN PRINT CHR$(7);:RETURN ELSE P 
RINT CHR$ (8) ; :RETURN 

1398 1F POS(HP)=LEN(rep$(i))+cx(i) OR VPOS(#ÿ)=cy(i)+1 
THEN PRINT CHR$(7); :RETURN ELSE PRINT CHR$ (9); :RETURN 
1499 IF POS(#9)=cx(i)+ic(i) OR VPOS(##)=cyli)+1 THEN PR 
INT CHR$(7) ; :RETURN 5 
1418 PRINT CHR$(16) ;:xx=POS(#B):rep$(i)=LEFT$(rep#(i),x >TN 
x-cx(i))+MID$(rep$(i),xx-cx(i)+2):PEN b:LOCATE cx(i),cy 
(i):PRINT rep$(i);CHR$ (219) ; :LOCATE xx, cy(i):RETURN 
1428 IF POS(##)=cx(i) THEN PRINT CHR$(7); :RETURN ELSE P 
RINT CHR$(B);:GOSUB 1419:RETURN 

1439 rep$(i)="":LOCATE cx(i),cy(i):PRINT STRING$(Ict(i), 
CHR$(218)) ;:LOCATE cx(i),cy(i):RETURNe 


JNG 
NP 


| BANC D'ESSAI 





LOGICIEL UTILITAIRE 


MUSIC 


MACHINE 


yant rencontré de grandes 
A difficultés pour faire fonc- 
tionner la Music Machine 
(impossibilité de saisir un échantillon 
(pardon de “sampler” un son), im- 
possibilité de faire exécuter le mor- 
ceau pré-programmé sur mon cla- 
vier, impossibilité de jouer à partir 
de mon clavier les “samples” 
préenregistrés ???), ceci n'étant 
pas faute d'avoir compris comment 
fonctionnait l'interface, ni d'avoir 
tout essayé, je vous livre quand 
même mes impressions de musicien 
amateur sur la Music Machine. 
N'ayant travaillé qu'au casque, 


je dois avouer qu'il manque quel- 


que chose de très utile : Un poten- 
tiomètre de réglage de volume 
d'écoute. Je crois avoir perdu envi- 
ron 10 dB à chaque oreille. Ou alors 
il aurait fallu fixer d'usine un niveau 
sonore un peu moins... DESTROY ! 

Deuxième point fort désagréable : 
le problème de ronflement résiduel. 
ll faut s'amuser à déplacer la Music 
Machine par rapport à l'écran, aux 
câbles d'alimentation pour trouver 
un emplacement plus où moins ac- 
crobatique pour l'interface afin que 
celle-ci ne capte trop de parasites 





(le seul fait d'approcher la main 
provoque un ronflement terrible. 
Une vraie chatte, on peut passer 
des heures à la caresser et l'écour- 
ter ronronner). : 


4 me 
done Lcd 
AT on 
CE RER 
PA us it 
\ { 1 
A | 

42 € À 
2 di \ est 
#1 As ni À HE 5 4 
ÿ- Li spot pee 
5 vi EE ki 
LES Yi LE 
+ à RE É j D 


Bon, le ton est donné, vous vous en 
doutez : critique sévère. Un bon 
point quand même pour la présen- 
tation. Les écrans sont bien faits, le 
passage d'un écran à l'autre est 
psychédélique. Mais gros problè- 
me : Peut-on vraiment parler de 
Music Machine quand on voit les 
limitations données par le manuel ? 
Tout d'abord en éditeur de mesu- 
re : On ne peut avoir que deux no- 
tes alignées verticalement tout en 
sachant que la Music Machine ne 
pourra en jouer qu'une. 


AMSTRAD 
VERSION 
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Si vous voulez entendre l'autre, il 
vous faudra connecter un instru- 
ment MIDI qui, lui, pourra jouer les 
deux notes simultanément (même 
avec un instrument MIDI connecté, 
il faut avouer qu'un maximum de 
deux notes simultanées c'est un peu 
léger pour jouer une partition). La 
plage de programmation des notes 
sur la portée est de quatre octa- 
ves... 


Pains" 


DR D à joe 


La partie éditeur de rythmes vous 
permettra quant à elle de pro- 
grammer des arrangements de vos 
“samples” en mémoire. Là, vous 
pourrez superposer au maximum 
trois “samples” parmi un choix de 
huit mémorisables. C'est un peu 
mieux que l'éditeur de mesures. 
Grâce à cet éditeur, vous pourrez 
mémoriser votre partition rythmique. 
Il faut savoir que vous pouvez enre- 
gistrer un maximum de 1.22 secon- 
des de son “samplé” en tout. Com- 
me vous pouvez mémoriser huit 
“samples” au maximum, cela don- 
ne une moyenne de 0.15 seconde 
par “sample”. Quant à la qualité 
des sons de percussion préenregis- 
trés, on peut dire qu'elle est assez 
bonne. Un bon point aussi pour 
l'éditeur de “sample” qui possède 
en plus une fonction REVERSE qui 
peut s'avérer intéressante. 

Il faut savoir aussi que la Music Ma- 
chine ne pourra pas restituer à la 
fois la musique et les percussions si- 
multanément. || faudra choisir l’une 
ou l'autre. Par contre, il vous sera 
possible d'envoyer la partition musi- 
que vers un synthétiseur MIDI, de 
faire Jouer la partie percussion en 
synchronisation par la Music Machi- 
ne. On pourra même, si on le dési- 
re, superposer à cela Un accompa- 
gnement en le jouant directement 
sur les touches du synthétiseur. 
Voici un petit résumé des choses 
que vous pourrez faire en associa- 
tion avec un instrument MIDI : 


- Jouer un des “sample” en mémoi- 
re dans la Music Machine à partir 
d'un clavier où tout autre instrument 
MIDI. 

- Envoyer au synthétiseur MIDI la 
partition musicale programmée et 
superposer en le jouant sur votre 
clavier un des “sample” en mémoi- 
re où bien une des voies que votre 
clavier MIDI peut générer. 

- En utilisant le microphone, vous 
pourrez “sampler” n'importe lequel 
des sons générés par votre synthéti- 
seur MIDI et l'éditer en utilisant l'édi- 
teur de “sample”. 

- Si vous connectez un clavier MIDI 
sur votre Music Machine, votre cla- 
vier sera en mesure de restituer jus- 
qu'à deux notes simultanément 
(alors que la Music Machine seule 
ne peut en reproduire qu'une en 
mode exécution d'une partition 
musicale). 


Ilest clairement spécifié dans la no- 
tice que la Music Machine est tout 
ce qu'on veut sauf un séquenceur 
du fait que le logiciel est trop gour- 
mand de mémoire, et que si l'on 
est assez riche pour posséder un sé- 





quenceur MIDI, on peut l'utiliser 
comme matériel principal pour pi- 
loter à la fois un clavier externe, un 
synthétiseur de sons de percussion 
externe et la Music Machine pour la 
génération de sons “samplés”. 

En résumé, je pense que le prin- 
cipal intérêt de la Music Machine 
est de pouvoir capturer un son - 
voire le "SAMPLER” comme ils disent 


outre Manche - et de le restituer en 
association avec un clavier MIDI sur 
toute la gamme accessible par ce- 
lui-ci, Donc grâce à la Music Ma- 
chine, vous pourrez faire ce que ne 
peut faire votre synthétiseur c'est- 
à-dire jouer des sons "SAMPLES”, 


Thierry Mangion 


Pétiipez à CPC os 


> D AD AS OS D oO cm sn 





E PROGRAMMEUR 


Nom : 


Adresse complète : 


Prénom : 








OR + NE. 


Je soussigné 


E PROGRAMME 


- 











Nom : 
Catégorie Q Jeu Q Utilitaire  Q Educatif 
Taille : 
Périphériques utilisées : 
Support Q Cassette Q Disquette | 


Comptabilité (testée) avec : 





déclare être l'auteur du programme ci-joint et ne l'avoir 


| jamais proposé à une autre revue. 


ES = À 


Q 464 
Signature 








Q 664 Q 6128 Q PCW 8256 | 


* Ne pouvant être tenu pour responsable de l'acheminement des paquets postaux, nous conseillons à notre aima- | 
ble clientèle de choisir l'envoi en recommandé. 


Remplissez soigneusement ce coupon et joignez-le à votre programme, sur cassette ou disquette. 
Envoyez le tout à CPC Infos — La Haïie de Pan - 35170 BRUZ 





RECTIFICATIF 


JAQUETTE 
POUR 464 


Aussi incroyable que cela puisse paraître. le célèbre 
All Gator est un inconditionnel du CPC 464. Cela est 
peut-être dû au fait qu'il a été l’un des tout premier en 


France à posséder un CPC mais surtout parceque der- 
rière sa machine, il y a un drive 5,25 pouces qui ne peut 
s'adapter sur Un 6128. 

Ceci étant dit, vous comprendrez pourquoi sa dé- 
ception fut grande lorsque parut l'utilitaire Jaquette de 
Mr Pierre Vacher (CPC Infos de février 91). Quoi | Un tel 
outil réservé aux 6128 cela n'était pas normal. 

Le grand All, s’est penché sur le problème (sans 
tomber), et en trois coups de cuillère à pot. Il l’a résolu. 

Trève de plaisanterie, voici les lignes du programme 
qu'il faut modifier pour que ce fameux utilitaire devien- 
ne compatible tous CPC. 


is MU CNP pi 


Routine assembleur remplaçant la fonction COPYCHRS inexistante sur 464. 


THE ENERGY 
OF WOK 


Dans ce listing, une erreur rendait Impossible l'accès 
aux niveaux 2, 3 et 4. Voici les quelques lignes à modi- 
fier (les instructions à rajouter sont en gras). 


270 … :POKE &9048,0:GOTO 250 
280 … :POKE &904B,0:GOTO 250 
290 … :POKE &904D,40:GOTO 250 


il faut rajouter une ligne : 

55 POKE &9048,&C8:POKE &904B,&C8:POKE 
&9O4E ,&C8:FOR A=&6180 TO &6180+255:POKE 
A+9945,PEEK(A):NEXT 


Si le personnage devient Invisible à un niveau , Il faut 
éteindre l'ordinateur, recharger le Jeu et passer au ta- 
bleau suivant en modifiant la ligne 240:POKE 
&901A tableau:CALL &9023:GOTO 260. 





OXYSUDIS 


La présentation d'Oxysudis est certes, facultative 
mails encore faudrait-il avoir le listing correspondant sl 
l'on choisit l'option «écran de présentation». Ce listing 
était absent du numéro précédent, le voici donc : 


19 MODE S:PAPER S:BORDER 9:INK 8,9:INK 1,26: INK 2,24:IN DFH 

K 3,15:INK 4,6: INK 5,11:INK 6,18:INK 7,3:INK 8,23:INK 9 
,132INK 18,18:INK 11,9:INK 12,2: INK 13,1:INK 14,24,6:IN 

K 15,9:CLS:DEFINT a-z 

28 MODE 2:PEN 1:LOCATE 17,1:PRINT "/CREATION DE LA PAGE DVX 
DE PRESENTATION D'OXYSUDIS/" 

38 FOR t=1 TO SSYD:NEXT t:MODE ÿ JYV 
49 FOR i=1 TO 899:x=1+INT(RND2630):y=1+INT(RND*399) :PLO DUA 

T x,y,L:NEXT 

58 RESTORE 69:FO0R u=1 TO 4:READ x,y,r,cpl,cp2,ci(1),c1( >BH 
2),c1(3):st=1:GOSUB 79:NEXT u:GOTO 198 

68 DATA 379,159,119,299,358,1,2,3,170,399,79,139,168,2, >2G 
3,4,478,350,49, 449, 469,6,5, 12, 386, 355, 29,296, 396, 13,6,9 














79 DEG:ORIGIN 9,8:0RIGIN x,y:FOR i=8 TO 364:PLOT COS(i) DUZ 
x, SINCi)ar, 152NEXT 1 :ORIGIN 8,9 

84 a=(x-r)+4:b=y:hza:g=b JUE . 
98 1F TEST(h,g)C15 THEN PLOT h,g,ct(st) HP Christian CHAINTREAU 


189 g=g-2:1F TEST(h,g)(>15 THEN PLOT h,g,cl(st): > AM ; 
9 RARE TENUE RÉMEUSSIR ER Voici un mini listing permettant (encore UN) d'obte- 


118 g-b PJ nir sur l'imprimante, le catalogue ou le Directory com- 
129 g=g#2:1F TEST(h,g)O15 THEN PLOT h,g,ct(st):GOTO 12 DAY plet de tous les users (y compris ceux situés entre 16 et 
255 ). Et ce d'une façon très simple, sans pokes et en 
139 g=b >QA moins de 10 lignes. 

148 h=h+2 »CJ 

159 IF h=cpl THEN cpl=@:st=st+1:GOT0 179 HT 

169 IF h=cp2 THEN cp2=g:st=st41 >2K LUS Inoression du CATalogue où Directory COMPLET d'une disquette de tous les 

178 1F TEST(h, 8)0)15 THEN GOTO 98 AA mn IE : se 

188 RETURN )2E 20 MODE 2:a=0: INPUT" Non ou numéro de la disquette ";nomdisc$: INUT'Face ";face$ 
198 INK 15,4 )VA 30 a=ati:iNPUT'Entrer le numéro d'user à editer “;u$la):u(a)=VAL iuÿ(a)):IF u$(a) 


288 SAVE"OXYSUDIS.PRE", b, &COG9, &4909 )ET Fe EN ASE "SO 

219 END >RG 4) nusa-l:FOR a=1 TO nu:CiS:POKE KA701 ,u(a):CAT:G0SUB 6O:PRINT"Replacer le papie 
r pour 1aprimer le prochain CAT à la suite ou changer de page PUIS UNE TPOUCHE 

“:CALL KBBIB:NEXT 





"DISQUE "snomdi sc$: ” FACE ‘; faces: ph=0:pv=l 
70 ph=pr+ ph:B0 THEN 80 ELSE 90 
&ù P CHRS (13) :pv=pvtis IF pv:25 THEN RETURN ELSE ph=0:G0T0 70 
3 TE php: a8=COFYCHRS (40) : PRINT#G,a$;:GOTO 70 


BONNES VACANCES || 


Grive À: user 


AK DATE OK  MAÏLMRGE.OVR* BK  TOT .MACx 1K  WSMSGS .OVR# 3iK 
E LA PART DE ASCTAT .MACx SK MTELFILE.BAK# LS) .COM# 16K  WSOVLYI .OVR# J4K 
iT . + 2K  MIELFILE.MACE SK NS .INSx 59K 
L'ÉQUIPE DE : 
Drive A: user 229 
GIGA CPC INFOS! || 0 
= 


Z free 
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Bernard LECERF 


Prenez un CPC 464 (le mien est 
pourvu d'un lecteur de dis- 
quette, ce qui explique que je ne 
mentionne pas certains résultats af- 
fichés), et armez-vous de patience. 


Essayez les manipulations suivanes : 


A/ en MODE DIRECT : 


- CALLO 

— PRINT FREC"""") 
- DIM A$ (2000) 
— PRINT FREC""") 


- FOR 1=1 TO 2000:A$(1)=""°"":NEXT 
:- PRINT FREC‘""").. 
cela peut durer un certain temps | 





Notez la place mémoire affiché par 
les PRINT FRE. 

Recommencez A/ en chargeant la 
valeur de A${l): ‘’01'’, puis ‘12°... 
Arrêtez à ‘0123456789. 

Les 2 premiers FRE doivent afficher 
à chaque fois le même nombre.Par 
contre, le 3ème diminue de 2000 
octets chaque fois que la chaîne 
s'allonge d'un caractère. À 20 ou 
22 caractères, c'est le message 
«STRING SPACE FULl» et le planta- 


ge. 


B/ en MODE PROGRAMME: 

10 PRINT FREC‘""") 

20 DIM A$(2000) 

30 PRINT FREC""") 

40 FOR 1=1 TO 2000:A$(1)=""O'"":NEXT 
50 PRINT FRE") 

Sauvegardez, lancez et notez les 
résultats. Réinitialisez, rechargez, et 
modifiez dans la ligne 40 la valeur 
de A$(I), comme dans la partie A/. 


Surprise, quand vous allongez la 
chaîne d'un caractère, tous les ré- 
sultats augmentent d'un octet. 
C'est normal pour les 2 premiers, 
puisque le programme est plus long 
d'un octet, mais pour le 3ème... un 
octet de plus au lieu de 2000 |! 


Voici l'explication : 


Recommencez la partie A/ et la 
partie B/, mais à chaque fois, tapez 
EN MODE DIRECT après affichage 
des résultats . 

Attention, AD, L et AC ne sont pas 
des variables : il faut taper en clair 
les nombres. Toute introduction de 
variables perturbe les résultats. 


- PRINT A$S(1) (recherche de 
l'adresse de la variable à l'aide du 
pointeur de variables) 


— PRINT PEEK(AD) 

J'appelle la réponse L. (Longueur de 
la chaîne) 

- PRINT PEEK(AD+1)+256"PEEK(AD+2) 


CPU AGA Emi 


an 
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J'appelle la réponse AC (Adresse 
de la chaîne) 

- FOR I=AC TO AC+L:PRINT 
CHRS(PEEK(I)D:NEXT 

La réponse est la chaîne. 


Recommencez avec PRINT 
A$(2000). Avec la procédure A/ les 
adresses obtenues (AC) sont diffé- 
rentes, cela semble évident. 
Refaites ces deux opérations avec 
la procédure B/. Pour aS$(1) et 
a$(2000), vous devez obtenir la 
même valeur pour AC | 


Eh bien, en MODE DIRECT, tapez à 
chaque essai de la procédure B/ : 
- FOR I=AC-13 TO AC+L:PRINT 
LPEEK(D:NEXT 

Vous devez obtenir les codes sui- 
vants : 

1 3 7 O 225 40 13 5 O 233 41 239 34 
48... et enfin 34. A l'adresse AC se 
trouve le début de la chaîne. 

Pour toute Valeur de | dans PRINT 
AS$(1), et quelle que soit la longueur 
de la chaîne, l'adresse est la 
même : c'est celle où se trouve la 
chaîne dans le programme. 

Et oui, le CPC va tout simplement 
chercher la chaîne à sa place DANS 
LE PROGRAMME, évitant d'encom- 
brer l'espace réservé aux variables. 
Il faut bien sûr que la chaîne soit 
déclarée nommément dans le pro- 
gramme, et non qu'elle soit calcu- 
lée par concaténation. 


















Pellleo ANNONCE 





” Vds CPC 464 mono + nbreux jeux + revues, 
valeur : 3650 F, vendu à 1500 F. Tél. 43.04.19.16, 
demandez Tri après 19 h 30. 


# Stop affaire ! Vds 6128 couleur, état impec. + 
joys. utilitaires + nombreux jeux & magazines + 
DK vi : 3000 F. Tél. 47.69.95.92. 





»” Je suis auteur programme gestion de timbres 


pour CPC 6128. Ingles Jean, 232, rue des Saules, 
74950 Scionzier. Tél. 50.98.86.92. 


» Vds CPC 6128 coul. + 147 jeux + 1 joystick + 
tuner TV + jeux Amcharge, val. réelle : 14700 F, 
vendu à 7500 F. Demandez Arthur au 56.91.54.26. 


» Achète interface RS 232C pour CPC, K7 ou D7, 
très important : 800 F à débattre. Tél. 83.56.03.00, 
Guillaume. 








» Vds CPC 6128 coul. + manuels + 2 joysticks + 
150 jeux + utilitaires + revues : 3500 F, tb état. 
Tél. 70.44.20.68, François. 


» Cherche pour 6128 disks Cherry Paint + poster + 
utilitaire. Thomas Michel, Cité Joyeuse L3 Kerca- 
do, 56000 Vannes. Tél. 97.40.67.41. 


» Vds imprimante DMP 2160 pour CPC (achat en 
mai 90) valeur : 1500 F, vendu : 800 F avec câble 
et manuel. Tél. 24.38.55.58 après 17 h. 


» Salut, je cherche des contacts pour échanges de 
jeux sur 6128. Contacter Christophe, tél. 
39.02.08.35 (15 h - 20 h), à bientôt. 


» Vds CPC 464 couleur + 100 jeux. Prix : 2000 F. 
Tél. 37.27.61.36, Eure & Loir. 


» Achète RS 232C pour CPC. Tél. 47.37.56.21, 
demander Amaël, région parisienne. 


=" Vds Amstrad 6128 couleur + jeux + joystick : 
3500 F. Tél. 64.33.42.15, après 18 h, demander 
Sylvain. 


» Vds CPC 6128 lect. neuf + joys. + 45 D7 + D7 
nettoy. + manuel. Le tout : 2800 à déb. Tél. (16.1) 
39.73.64.35. 


“Vds lect. 3” 1/2 + RODOS + ROmbo neuf + 
crayon optique neuf. Achète scanner + DBsae Il, 
Multiplan, Pack Printer, manuel Oxpac + cpm + 
tous utilitaires. Tél. 66.69.42.51, ap. 19h. 


= Vds Amstrad CPC 6128 couleur + joystick Quic- 
kjoy3 + nombreux jeux, tous très connus. Le tout : 
2400 F à débattre. Tél. 49.63.37.23, ap. 19h. 


» Vds CPC 6128 couleur, gar. 4 mois + manuel + 
10 disquettes jeux, état neuf. Prix : 2000 F. Tél. 
34.28.07.33. 


« Vds 6128 coul. + DMP 2160 + nbrx jeux + utilitai- 
res + joystick. Tél. 34.67.44.95. 


» Recherche pour Amstrad CPC livres Turbo Pas- 
cal, Turbo Tutor. Vds revues. Menu, 118, rue du 
er Septembre, 60200 Margny L. Compiègne. 


= Vds pistolet Magnum, tbe, disquette (Opération 
Wolf...). Prix : 300 F à débattre. Tél. 29.65.63.69, 
demander Cyril, après 18 h. 


» Vds lecteur DD1 pour disquettes 3”, 6128, état 
neuf : 11000 F. Tél. 39.92.80.25, demander Daniel 
vers 17 h 30. 


“ Recherche utilisateur lecteur disc Vortex 5” 1/4 
F1X/6128 pour informations, rembourse frais. Tél. 
83.22.76.10. 


= Vds CPC 6128 couleur, lecteur 5” 1/4 + logiciels : 
3500 F. Tél. 83.81.42.63, 54700 Blenod les Pont à 
Mousson + imprimante. 


» Vds lecteur de D7 + DDI Amstrad + D7 jeux et 
utilitaire + Hacker. Prix : 1200 F. Tél. 98.47.33.43, 
après 19h. 


«Echange jeux utils, éducs sur 6128. Envoyer liste 
à Mazars Philippe, Route de Glanes, 46130 Brete- 
noux, pour contacts sérieux. 


= Cherche revue CPC n°1 à 22 + HS CPC 1 à 4. 
Faire offre au tél. 98.47.33.43, après 19h. 


» Recherche clavier 6128, lecteur disquette, région 
Hte Savoie. M. Romano, tél. 50.27.60.41. 


= Vds Amstrad CPC 6128 coul. + 100 jeux + 1 
manette + manuel + revues, état neuf, peu servi, 
cédé à 2500 F. Tél. 69.38.59.64, le soir. 


» Vds 6128 Plus, mono + Tasword, utilitaires, jeux, 
neuf, 4 mois : 3900 F. Tél. 48.51.65.40. 


= Vds CPC 464 coul, + DDI1 + manuels + revues + 
K7 + D7 + joys. Le tout : 3500 F. Tél. (1) 
48.65.37.51. 


# J'achète les premiers numéros d'Amstrad maga- 
zine ou photocopies de montages électroniques 
du 6128. Tél. 94.24,11.65, hb. 


# Vds lang. prog. orig. Amst. CPC : Pascal MT + 
(Digit. res.), CBasic (DR), Turbo Modula (Borland) : 
450 F chaque. Tél. 34.70.90.15. 

= Je tape vos listings, 1 F le ko. S'adr. à M. Bou- 


court, 5, rés. de la Ferme, 78710 Rosny s/Seine. 
Tél. 30.42.85.27. 








NN telN te = A et 





LES PETITES ANNONCES ET LES MESSAGES l 
Attention, vos PA seront mises sur le serveur avant la parution du joumal 

















HE HE | 
EHFREEEEEE 





Mettre ce coupon + 4 timbres à 2,30 F dans une enveloppe. ds 
Adresser le tout à : SORACOM - La Halo de Pan - 35170 BRUZ O 


Gagnez du temps ! Sur Minitel 36.15, tapez MHZ 
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CHARLIE 


BONDSOUND 


Une balle 
sautillante doit 
capturer des 
couleurs (cubes colorés) 


afin d'allumer des 
projecteurs 
(QUES 
PAIE COR 


CHARLIE.BAS 


38 REM : CHARLIE 
4g REM : 

58 REM : ! 
69 REM : CLAUDE LE MOULLEC : 
78 REM : 83 RUE CURIE 

89 REM : 22428 PLOUARET 
98 REM : TEL 96 38 94 24 
109 REM srsssesssssesessenese 


BOND SON : 
by ; 


129 REM sssssssseseseseseosee 


149 REM : VARIABLES DE BASE : 
159 REH : ! 
169 REM ssrssesresseseneesest 


[elle [Te [HR 2 I@IUIRE Te: 





Valable pour CPC 464 - 664 - 6128 








d'une même couleur sont allu- 

més, un disque apparait dans 
la partie contraire de celle où se 
trouve la balle à ce moment. 
Il faut prendre ce disque et le dé- 
poser sur une note... la musique 
commence sur une vole. Le mor- 
ceau musical utilisant 3 voies, il y a 
donc, pour chaque tableau, 3 dis- 
ques à capturer. Plus quelques sur- 
prises (passages secrets monstres, 


| orsque tous les projecteurs 





etc …) que le joueur découvrira au 
fur et à mesure de sa progression. 


Ce jeu comprend 2 fichiers. 
CHARLIE : fichier basic, corps princi- 
pal du jeu. 

CHALIBIN : fichier binaire (sprites, 
tableaux et routines LM) : 
DATACHAR est un fichier basic de 
data qui, une fois lancé, donne 
CHALIBIN. 


298 DIM sp(39):FOR h=9 TO 25:sp(h+1)=&8829+(189xh) :NEXT )YR 
219 DIM PY(28):RESTORE 239:F0R h=1 TO 9:READ af >NA 
228 PYCh)=VAL("&"+a$) :PY(h+8)=VAL("&"+a$) :NEXT )PV 
239 DATA BFFB, E99B, C18B, E22B,C31B,E3BB,C4AB,E54B,C63B  XH 


D | 249 DEF FN POUX,Y)=PY(Y)+(X45) >YR 
DJ | 259 DEF FN PK(X, YI=PEEK(KOESF+(Yx16)+X) »GJ 
DUE | 969 DEF FN LTCX, Y)=WBFFE+(Y-1)#88+(X-1)#2 >HK 


DAE | 279 ENT 4,19,-1,3:ENV 4,19,-1,3:ENT 3,29,3,5:ENV 14,1,5 DPE 


DEB | ,1,19,1,4,5,-3,1 


DVA À ogg ENV 1,15,-1,42ENT 2,19,-1,9,19,1,L2ENV 2,1,-1,4:ENV HR 


AL 19,15,-1,1 


TG à 299 ENV 15,1,5,1,18,1,4,5,-3,1:ENT 14,49,-19,1:ENT 15,5 MM 


>PB ,729,1,68,18,1 
)XQ | 389 GOSUB 2885 


)QC 


)GU 318 VIE=4:SC=Q:REC=@:TA=1 )VG 


DXT 329 A$=" SCORE  LIFES” LEVEL 


KE =24:GOSUB 35ÿ 
NX 339 A$=" 09899 
XKG =25:G0SUB 359 
XX 349 GOTD 439 


HIGHT":ZL=1:YL )QZ 
989  99998":ZL=1:YL DJY 


)ZA 


179 DEFINT a-z:MODE 9:BORDER ! 
188 RESTORE 199:FOR h-ÿ TO 15:READ a: INK h,a:NEXT 
199 DATA 9,18,26,9,24,12,18,7,8,16,1,12,3,15,3,6 


)YB 
)TB 
TA 


359 A$=UPPER$(A$):FOR T=1 TO LEN(A$):PS=(ASC(HIDS(A$,T, DHX 
1)))-48 
369 IF PSC THEN PS=43 )QL 
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379 CALL &8ECC,FN Lt(ZL, YL)+(Tx2), &BEEC+(PS*16):NEXT:RE >GD 


TURN 


489 REH : BRANCHEMENT TAB 
419 REM : ! 
429 REM sossssssssssennenses 


438 ON ta GOTO 449,459, 469,479, 489, 498, 506,518,528,538, 


549,558, 568 

449 RESTORE 2718:CALL &A2A8,491B9:G0T0 578 
459 RESTORE 2729:CALL &A2A8,492C4:GOTO 579 
469 RESTORE 2738:CALL &A2A8, &93D8 :GOTO 578 
478 RESTORE 2749:CALL &A2AB, K94E9:GOTO 579 
469 RESTORE 2758:CALL &A2A8, 495F8:GO0TO 579 
499 RESTORE 2769:CALL LA2AB,&9789:GOTO 579 
588 RESTORE 2778:CALL &A2A8,49B19:G0TO0 578 
519 RESTORE 2784:CALL &A2A8, 49929: GOTO 579 
529 RESTORE 2798:CALL &A2A8,49439:G0T0 578 
534 RESTORE 2899:CALL &A2A8,k9B49:GOTO 579 
549 RESTORE 2818:CALL &A2AB,49C58:G0T0 578 
559 RESTORE 2828:CALL LA2A8,4OD69:GOTO 579 
569 TA=1:GO0T0 439 


578 READ GJ,GM,GR,X,Y:POR=Q:EC=1:CALL &A1EC:mu=ÿ 
569 fin=f:gan=9:GOSUB 1849:GOSUB 1919:G0SUB 1989 :GOSUB 


2819 


598 CUB=#:tt=199:READ M,N:IF H=1 THEN GOSUB 2438 
698 CALL &AIEC:CALL &A238,FN PO(X,Y),SP(15):D7=9: INK 12 


,3 

619 REM :sssssesesseseneences 
629 REM ! 
639 REH : ROUTINE PRINCIPALE: 
648 REM : ; 
659 REM sssssssssseseesesees 


669 IF FIN=1 THEN 2194 

679 1F INKEY(74)#[NKEY(8)=9 THEN 1989 
689 IF INKEY(75)#INKEY(1)=8 THEN 1119 
699 IF INKEY(72)#INKEY(#)=9 THEN 748 
789 IF INKEY(73)#INKEY(2)=9 THEN 879 
719 PA=PA+I:IF PA>59 THEN 1228 

728 GOTO 668 

739 REM ::: VERS LE HAUT ::: 

74ÿ IF Y=9 AND EC=2 THEN 839 


759 ADD=FN PO(X,Y):CALL KA25A, ADD:CALL &ABBB, ADD 
769 CALL &A264,SP(16):FOR T=1 TO tt:NEXT:CALL &A28C 


778 CALL &A264,SP(17):FOR T=1 TO tt:NEXT:CALL &A28C 
788 CALL &A264,SP(17):FOR T=1 TO tt:NEXT:CALL &A28C 


798 IF MU=8 THEN SOUND 4,159,35, 19,4, 4 

858 CALL &A264,SP(16):FOR T=1 TO tt:NEXT:CALL &A28C 
819 CALL &A264,SP(15):FOR T=:1 TO 5B:NEXT:Y=Y-1 

829 IF Y=9 AND EC=2 THEN 839 ELSE 1379 

839 1F M=1 THEN GOSUB 2429 

849 CALL &A1EC:PY(9)=8C63B:CALL &A238,FN PO(X, Y),SP(15) 


859 EC=1:GOT0 1378 

869 REM ::: VERS LE BAS ::: 

879 1F Y-9 AND EC:1 THEN 968 

888 ADD=FN PO(X,Y):CALL &A25A, ADD:CALL &AÿGB, ADD 


)XB 
)LC 
)VR 
XKF 
)X4 
NV 


)JE 
)J 
)JN 
NT 
DIX 
)JC 
)JX 
)JB 
)JN 
)JH 
)JH 
JR 
)LC 
UN 
DER 


)QU 
)AU 


XX 
XKJ 
NT 
)LA 
>XB 
)PT 
)DC 
)DZ 
)C4 
)CV 
»XD 
)ZH 
JVY 
UZ 
)RK 
>UK 


>UH 
JUN 


)D6 
UE 
>NH 
)CT 
TU 
)ZY 


>MH 
>UG 
>UG 
)RB 


VTT @ 
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D. 


898 CALL &A295, SP(16):FOR T=1 TO tt:NEXT:CALL &A28C 
988 CALL &A295,SP(17):FOR T=1 TO tt:NEXT:CALL &A28C 


918 CALL &A295,SP(17):FOR T=1 TO tt:NEXT:CALL &A28C 


928 IF MU=$ THEN SOUND 4, 159,35,18, 4,4 
938 CALL &A295,SP(16):FOR T=1 TO tt:NEXT:CALL LA28C 


949 CALL &A295,SP(15):FOR T=1 TO SB:NEXT:Y=Y+1 

959 IF Y=9 AND EC:1 THEN 968 ELSE 1379 

968 IF N=1 THEN GOSUB 2518 

979 CALL &A21E:PY(9)=UBFFB:CALL &A238,FN PO(X,Y),SP(15) 


988 EC=2:G0T0 669 

998 REH ::: A GAUCHE ::: 

1998 ADD=FN PO(X,Y):CALL &ASBB, ADD:CALL &kA239, ADD-1, SP( 
16) 

1818 FOR T=1 TO tt:NEXT 

1929 CALL &Aÿ8B,ADD-1:CALL &A238, ADD-2,SP(17) 

1838 FOR T=1 TO tt:NEXT 

1949 CALL &Aÿ8B,ADD-2:CALL &A238,ADD-3,SP(17) 

1858 FOR T=1 TO tt:NEXT:IF MU=9 THEN SOUND 4,159,35,19, 
4,4 

1868 CALL &ABBB, ADD-3:CALL &A238, ADD-4, SP(16) 

1979 FOR T=1 TO tt:NEXT 

1888 CALL &ABBB, ADD-4:CALL &A239, ADD-5, SP(15) 

1999 FOR T=1 TO SB:NEXT:X=X-1:G0T0 1379 

1198 REM ::: À DROITE ::: 

1119 ADD=FN POCX, Y):CALL &AÿBB, ADD:CALL &A238, ADD+1, SP( 
16) 

1128 FOR T=1 TO tt:NEXT 

1139 CALL &A96B, ADD+1:CALL &A238, ADD+2,SP(17) 

1149 FOR T=1 TO tt:NEXT 

1159 CALL &AD8B, ADD+2:CALL &A238, ADD+3,SP(17) 

1168 FOR T=1 TO tt:NEXT:IF MU=9 THEN SOUND 4,158,35,19, 
4,4 

1178 CALL &ABBB, ADD+3:CALL &A239, ADD+4, SP(16) 

1189 FOR T=1 TO tt:NEXT 

1199 CALL &ABBB, ADD+4:CALL &A239, ADD+5, SP(15) 

1299 FOR T=1 TO SY:NEXT:X=X+1:G0T0 1378 

1219 REM ::: SUR PLACE ::: 

1229 ADD=FN PO(X, Y):CALL &A98B, ADD:CALL &A239, ADD, SP(16 


| 
1238 FOR T=1 TO ttu2:NEXT 


1249 CALL &AB8B,ADD:CALL &A239, ADD, SP(17) 


125$ FOR T=1 TO tta2:NEXT 


1269 CALL &ADBB, ADD:CALL &A239, ADD, SP(17) 
1279 FOR T=1 TO ttx2:NEXT:IF MU=9 THEN SOUND 4, 159,35, 1 


9,4,4 


1288 CALL &ABBB, ADD:CALL &A238, ADD, SP(16) 


1298 FOR T=1 TO tt:NEXT 


1398 CALL &ABBB, ADD:CALL &A238, ADD, SP(15) 


1319 PA=9:G0TO 1388 


1349 REM : TESTS DES CASES 
1358 REM : ; 
1369 REM ssssssssseneseenenses 
1378 IF CUB-1 THEN 1438 


DU 
UL 


>UH 


DB 
JUN 


NU 
)CA 
TZ 
JA 


)LB 
)QE 
)CJ 


)RQ 
ML 
RRT 
)HQ 
>BK 


HU 
)RX 
)HX 
)GL 
RF 
)CJ 


RT 
MJ 
RU 
>HN 
>BH 


)MR 
RZ 
HV 
GB 
TU 
)AD 


UF 
>HH 
>UH 
>HK 
DT 


)HL 
RB 
)HC 
ME 
)XD 
RE 
>WN 
RG 
>XH 
>Qh 


1389 A=FN PK(X,Y)+1:1F 8314 THEN 668 


NET © 
RSR 


BP 


1399 ON À GOTO 1499,1419, 1425, 1429, 1429, 1469,1698,1679, >HK 


1609, 1739, 1 
1499 FIN=1 


730,1738, 1490, 1499 


1418 GOTO 668 
1429 IF PORC>4 THEN 669 ELSE POR=A-1:X1=K:Y1=Y:CUB=1:EC UP 


RA=EC : GOTO 


669 


M] 
)FD 


1438 IF EC=ECRA THEN CALL &AGBD,FN PO(X1,Y1),SP(1) )TG 
1449 POKE &9ESF+(Y1#16)+X1,9:SC=SC+5:GOSUB 1849 )QC 


1459 CALL RABOD,8&E796, SP(POR+1):CUB=8:GOTO 669 
1469 IF PORC2 OR POR>4 THEN 669 


)PU 
XE 


1478 CALL &ABBB,FN PO(X, Y):CALL &AGBD,FN POCX,Y), SP(POR >DB 


+1) 


1488 CALL &AB39,FN POCX, Y),SP(6):CALL &A23D,FN POCX,Ÿ), FX 


SP(15) 


1499 POKE &9E5F+(Yx16)+X, 13+POR:PP=POR-1 : POR=9 


1599 POKE LABIF,LAF:CALL RASED, &E 706, SP(1):POKE &ABIF,& AM 


1A 


1519 ON PP GOTO 1529, 1539, 1548 

1528 GJ=GJ-1:1F GJ=9 THEN 1559 ELSE 664 
1538 GH=GM-1:1F GM:9 THEN 1559 ELSE 669 
1549 GR=GR-1:IF GR=9 THEN 1559 ELSE 669 


1559 IF ec: 


1 THEN 1589 


1569 XD=INT(RND#16)+1:YD=INT(RNDx8)+1:1F FN PK(XD, FD)C) NL 


L THEN 1559 


1578 POKE R9E5F+(YD*16)+XD, 8+PP:SOUND 3,28, 199,15,9,3:G GX 


OTO 668 


1588 XD=INT(IRNDX16)+1:YD=INTIRNDK9)+9:IF FN PK(XD, YD)<> DNB 
1 THEN 1589 


1598 GOTO 1 
1698 IF ec- 
1618 IF M=1 


579 
1 THEN 1649 
THEN GOSUB 2428 


1628 X=INT(RND#16)+1:Y=INT(RNDX8)+1:1F FN PK(X,Y)<21 TH DHL 


EN 1628 


1634 EC=1:py(9)=&C63B:CALL &ALEC:CALL &A239,FN POCX,Y), DTZ 
SP(15):GO0TO 669 


1648 IF N=1 


THEN GOSUB 2519 


1659 X=INT(RND#16)+1:Y=INT(RNDX9)+9:1IF FN PK(X,Y)©31 TH HC 


EN 1658 


1669 EC=2:py(9)=&BFFB:CALL &A21E:CALL kA239,FN POCX,Y), DTX 
SP(15):G0TO 669 


1679 IF POR(>198 THEN 668 )RX 
1689 gan=t:fin=1:G0T0 669 DUZ 
1698 IF POR<I9 OR POR>12 THEN 668 )2J 
1799 INK 12,3,24:D7=D7+1:POR=ÿ XP 
1719 POKE &ABIF,&AF:CALL &AG9D, &E796, SP(1) )JJ 
1729 POKE &ADIF,&IA:GOTO 2568 Wu 
1738 IF POR(>9 THEN 669 ELSE SOUND 1,59,21,13,3,4 )PY 


1749 POR=A:CALL &AB8B,FN PO(X,Y):CALL &ABOD,FN PO(X,Y), )FR 


SP(2) 


1758 CALL &A239,FN PO(X,Y),SP(15):POKE &9E5F+(Y*16)+X,1 DYN 


1769 IF POR=19 THEN SS=19 ELSE IF POR=11 THEN 55:12 ELS DER 


E SS=i1 


1778 CALL &ABOD, &E796, SP(SS):GOTO 668 


1788 REM :: 


1899 REM : 
1819 REM : 


000000000000 
ns 


GESTION COMPTEURS : 





1829 REM sossesrersesseneesese )YA 
1839 REM ::: SCORE ::: )PY 
1849 IF sc=8 THEN a$="99909":ZL=3:YL=25:GOSUB 354:RETUR >BV 
N 


1858 at=STR$(sc) :A$=RIGHTS(AS$, LEN(A$)-1) DHT 
1868 IF sct19 THEN ZL=7:YL=25:GOSUB 359:RETURN 00 
1874 IF sc<189 THEN ZL:6:YL=25:G0SUB 358:RETURN )RG 
1889 IF sc(1998 THEN ZL=5:YL=25:G0SUB 359:RETURN )TZ 
1899 ZL=4:YL=24:GO0SUB 358 :RETURN )CJ 
1998 REM ::: RECORD ::: )Q] 


1919 IF REC=8 THEN at="#9999":2L:34:YL-25:G0SUB 359:RET >DB 
URN 


1929 a$=STR$S(REC) :A$=RIGHTS(A$, LEN(A$)-1) )JA 
1939 IF REC<19 THEN ZL=38:YL:25:GO0SUB 359:RETURN )TA 
1948 IF REC(199 THEN ZL=37:YL=25:GOSUB 359:RETURN DUU 
1958 1F REC(1999 THEN ZL=36:YL=25:GOSUB 358:RETURN UN 
1969 ZL=35:YL=25:G0SUB 35S:RETURN )CZ 
1979 REM ::: VIE ::: )ML 
1988 a$=STR$(vie):A$=RIGHTS(A$,LEN(A$)-1) NT 
1999 ZL=14:YL=25 :GOSUB 359:RETURN CZ 
2899 REM ::: TAB ::: )MF 
2919 a$=STR$(TA):A$=RIGHTS(AS$, LEN(A$)-1) DHE 
2929 IF TACIS THEN ZL=29:YL:25:G0SUB 359:RETURN )RA 
2839 ZL=28:YL=25:GOSUB 359:RETURN )CP 
2848 REM soresseesesesenenene >XD 
2959 REM : ! RE 
2968 REM : FIN DE PARTIE : )TD 
2879 REM : ! RG 
2888 REM srrssnrtensesmennine >XH 
2998 ::: GAGNE ::: )LB 
2199 FOR H=9 TO 3:MU=REMAINCH) :NEXT )DU 
2119 WHILE INKEY$O"M:WEND:IF gan:ÿ THEN 2238 >MN 


2128 SOUND 1,8,15,15,19,,15:FO0R h=1 TO 25:sc=sc+18:G0SU DEJ 
B 1849 

2139 SOUND 1,9,15,15,19,,15:F0R t=1 TO SY:NEXT t,h )QR 
2149 ADD=FN PO(X, Y):CALL &A98B, ADD:CALL &A238, ADD, SP(16 >AF 
| 

2158 FOR T=1 TO 298:NEXT:CALL &ABBB, ADD:CALL &A238, ADD, FG 
SP(17) 

2168 FOR T=1 TO 298:NEXT:CALL &AGBB, ADD:CALL &A238, ADD, FH 
SP(17) 

2178 FOR T=1 TO 298:NEXT:CALL KAZGB, ADD >FH 
2189 POKE &ADIF,&AF:CALL &AGGD, &E796, SP(1):POKE BABIF,& DAT 


LA 

2198 FOR t:i TO SSPB:NEXT t >UH 
2299 TA=TA+I:IF SCOREC THEN REC=SC:GOSUB 1919 )NJ 
2219 GOTO 438 )EH 
2229 REM ::: PERDU ::: )PW 
2238 BORDER 26:INK 9,26: SOUND 4,1598,58,7,9,8,19 >PH 
2249 SOUND 4,1299,8,9,14, 14:SOUND 4,8,28,2,,,18 )ME 


2258 FOR h=1899 TO 1599 STEP 198:SOUND 4,h,38,8,15,15:N D AE 
EXT 
2268 ADD=FN PO(X,Y):CALL &AS8B, ADD:CALL 4A239, ADD, SP(16 > AJ 


) 

2279 FOR T=1 TO 288:NEXT:BORDER B:1NK 9,9 HR 
2289 CALL &AB8B,ADD:CALL &A238, ADD, SP(17) HN 
2298 FOR T=1 TO 298:NEXT RE 
2389 CALL &A98B,ADD:CALL &A235, ADD, SP(17) HF 
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2318 FOR T=1 TO 28A:NEXT 


2329 CALL &AG8B,ADD:POKE &AD1F, &AF:CALL &ADOD, E796, SP( 


L):POKE &AGIF, &1A 


2339 vie=vie-1:G0SUB 1989:1F vie=g THEN 2358 
2349 FOR T=1 TO 2899:NEXT T:ta=ta-1:GOTO 2299 
2359 FOR T=1 TO 28A9:NEXT T:TA=ÿ:vie=4:sc=D:GOSUB 1989: 


GOTO 2298 
2368 REM 


Sotooteroereereerenre 
CARRE EEE 


2378 REM : 


2388 REM : 


2398 REM : 


2498 REM 
2419 REM 


2428 POKE ADK3,1:POKE ADX4,1:POKE ADXS, 1 
2439 X3=INT(RND#16)+1:Y3=INT(RND48)+1:1F FN PK(X3,Y3)O 


Sos soso sous 
Sas ss ossi sssaus 


522 MONSTRE TAB 1 ::: 


1 THEN 2428 


2449 ADX3=R9ESF+(Y3x16)+X3:POKE ADX3, 12 
2459 X4=INT(RND#16)+1:Y4=INT(RNDX8)+1:1F FN PK(X4,Y4) © 


L THEN 2458 


2469 ADX4=R9E5F+(Y4x16)+X4:POKE ADX4, 12 
2479 X5=INTORND#16)+1:Y5=INT(RNDX8)+1:1F FN PK(X5, 15) © 


L THEN 24784 


2488 ADX5=&9E5F+(Y5#16)+X5:POKE ADX5, 12 


2498 RETURN 


2588 REH 


tt MONSTRE TAB 2 ::: 


2518 COUP=8 


2529 X8=INT(RNDX16)+1:Y8=INT(RNDx9)+9:COUP=COUP+1:1F CO 


UP>19 THEN RETURN 


2538 IF FN PK(X8,Y8)©1{ THEN 2519 

254$ POKE &9ESF+(Y8#16)+X8, 13:RETURN 
ttt MUSIQUE ::: 
2569 IF D7=1 THEN EVERY 15,1 GOSUB 2619:tt=tt-19:GO0T0 6 


2558 REM 


68 


2578 IF D7=2 THEN EVERY 69,3 GOSUB 2698:tt=tt-15:G0T0 6 


68 


2588 IF D7:3 THEN RESTORE 2648:EVERY 15,2 GOSUB 2629:P0 


R=199:MU=1:tt=tt-15:G0TO 669 


2598 GOTO 


2699 DI:SOUND 2,9,15,15,1,9,1:SOUND 2,9,15,15,1,4,5:El: 


RETURN 


2619 DI:SOUND 2,9,15,15,1,9,5:EI :RETURN 

2629 DI:READ s:1F s=9 THEN EI:RETURN ELSE IF s5=-1 THEN 
RESTORE 2649:G07T0 2624 ELSE 2639 

2639 SOUND 1,5,38, 14,8,2:SOUND 4,5#2,39,15,9,2:EI:RETUR 


N 


2648 DATA 451,9,379,9,381,8,9,451,379,9,381,391,451,9,3 
79,9,381,9,0,451,379,8, 391,391, 338, 9,284,9,225,9,9,338, 
284,9,225,225, 338,9, 284,9,225,9,9,338, 284, 9,225, 225 

2658 DATA 451,9,379,9,391,0,0,451,379,9, 391,391, 451,9,3 
79,9,381,8,9,451,379,9, 301, 391,338, 8, 391,338, 338, 379,9, 


451,-1 


668 


2669 REM sssstsssreseeseseeste 
2678 REM : ! 


2689 REM :PARAMETRES TABLEAUX: 
2698 REM : 


2798 REM sorssssseeseeneneesse 


2719 DATA 3,2,2,6,6,9,9 
2728 DATA 3,4,3,6,3,8,0 
2739 DATA 2,2,2,2,2,8,8 


VV "@ 


RX 
JVR 


>LX 
)HB 
XKF 


)YA 
)RK 
UU 
)TB 
XD 
DIR 
>HD 
MP 


>GK 
MZ 


GR 
MA 


)GY 
)FJ 
JWH 
)ZB 
) AB 


)ZX 
)EE 
RT 
AE 
JAN 


)MC 











nn. 
2749 DATA 4,4,2,6,6,1,1 )PD 
2758 DATA 6,6,2,6,6,9,1 PH 
2768 DATA 4,4,3,2,2,0,9 >PH 
2779 DATA 3,3,2,2,2,8,1 )PV 
2789 DATA 3,3,2,5,6,1,1 PE 
2799 DATA 3,3,2,4,6,1,9 >PD 
2889 DATA 2,2,2,8,2,1,1 >PU 
2819 DATA 3,2,3,7,2,0,8 )PU 
2828 DATA 2,1,3,2,7,1,1 PV 
2838 REM sésame )YC 
2849 REM : ; )TB 
2859 REM : PRESENTATION : DUM 
2868 REM : : >TD 
2879 REM srsssssseseneeesenses )YG 


2888 INK 3,9,16:INK 19,16,9:SPEED INK 25,25:RESTORE 264 >BN 

S:EVERY 15,2 GOSUB 2628 

2809 EVERY 15,1 GOSUB 2619:EVERY 69,3 GOSUB 2698 PE 

2909 2X=9:1Y-0:E8:19:E9-3:G0SUB 2919:ZX=188:2Y=9:E8-3:E TB 

9=18:GOSUB 2919:2X:376:2Y=9:E8=19:E9-3:GOSUB 2919:GO0TO 

3919 

2918 ORIGIN ZX,2Y:FOR h=69 TO 76 STEP 2:PLOT 189,h,4:DR )QV 
AW 164,h:NEXT 

2928 FOR h=84 TO 199 STEP 2:PLOT h,156:DRAW 199,68:PLOT GX 
h+89,156:DRAN 164,69:NEXT 

2938 FOR h=198 TO 164 STEP 2:PLOT h, 156:DRAM h, 7G:NEXT: DQU 

PLOT 126,156, 14:DRAW 199, 76:DRAW 164, 76:DRAU 138, 156:PL 

OT 96,156:DRAW 132,76:DRAW 168,156 

2948 FOR h=89 TO 184 STEP 4:x=INT(RNDX8) :PLOT h,166,1:D LM 

RAW h,146+x:NEXT:PLOT 89,169,14:DRAN 184,169 

2959 PLOT 89, 166:PLOT 184,166:PLOT 89,158:PLOT 184,158 KG 

2969 FOR G=146 TO 178 STEP 16:XT=G:YT=:176:P=8:EN=E8:GDS >TH 
UB 3988:XT-G:YT=299:P=8:EN=E9:GOSUB 3948 :NEXT 

2978 XT=198:YT=179:P=8:EN=E8:GOSUB 399B:XT=198:YT=194:P DCR 
=6:EN=E9:GOSUB 3989 

2988 FOR G=88 TO 128 STEP 16:XT=G:YT=176:P=8:EN=E9:GOSU )QP 
B 3998 :XT-G:YT=269:P=8:EN=E8:GOSUB 3899: NEXT 

2998 XT=68:YT=179:P=8:EN=E9:GOSUB 3898: XT=68:YT=194:P=8 )AR 
:EN<E8:GOSUB 3999 

3999 PLOT 788, 749, EN:P2=P4P:ORIGIN XT+2X,YT+2Y:FOR H=9 AJ 
TO Pxÿ.71 STEP 2:J=SQR(P2-HxH):MOVE H,J:DRAW H, -J':MOVE 
J,H:DRAW J,-H:MOVE -H,J:DRAW -H,-J:MOVE -J,H:DRAW -J,-H 
:NEXT:ORIGIN 9,9:RETURN 

3919 B$="CHARLIE":FOR H=1 TO 7:A$=MIDS(B$,H, 1): INK 8,8 VB 
3929 PEN 8:LOCATE 1,23:PRINT A$:X:=Hx48+39:V=1:E1=2:E2=8 )YN 
:GOSUB 3964: NEXT H 

3838 B$="BONDSOUND":FOR H=1 TO 9:A$=MID$(B$,H,1) )QN 
3949 PEN 8:LOCATE 1,23:PRINT A$:X=Hx48+9ÿ:Y=2:E1:15:E2= )ZV 
4:GOSUB S3B69:NEXT H 


8858 LOCATE 1,23:PRINT " ":INK 8,8:G0T0 3198 XKG 
3969 FOR 1=32 TO 48 STEP 2:FOR L=1 TO 32 STEP 4 KN 
3478 A=TEST(L,1):1F A=9 THEN 3999 EU 


3988 PLOT X-4+L,319-(Yx48-(1#2)),E1:PLOT X-4+L,312-(Yx4 DUT 

8-(1#2)),E2 

3998 NEXT L, I RETURN )Q 
3199 FOR H=1 TO 5:MOVE 39,H:DRAW 619,H,4:NEXT:FOR H:6 T )QT 
0 29:MOVE 39,H:DRAN 619,H,B:NEXT 

3119 FOR H=28 TO 22:MOVE 39,H:DRAN 619,H,1:NEXT:FOR H=1 DRZ 
TO 8:MOVE H,26:DRAW H,374, 4:NEXT 

3129 FOR H=8 TO 28:MOVE H,26:DRAU H,374,B8:NEXT:FOR H=29 >UD 
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NT @ 
D 


TO 22:MOVE H,26:DRAW H, 374, 1:NEXT 
3139 FOR H=616 TO 629:MOVE H,26:DRAW H,374,1:NEXT:FOR H >BX 
=628 TO 632:MOVE H,26:DRAW H,374,B:NEXT 
3149 FOR H=632 TO 636:MOVE H, 26:DRAW H,374,4:NEXT:FOR H >BQ 
2304 TO 49B:HOVE 39,H:DRAW 618,H,4:NEXT 
3159 FOR H=382 TO 392:MOVE 39,H:DRAW 619,H,B8:NEXT:FOR H >BQ 
=378 TO 384:MOVE 38,H:DRAU 618,H,1:NEXT 
3169 X=28:FOR T=1 TO 22:MOVE T,X:DRAW T,29,15:X=X-1:NEX )CZ 
TT 
3178 X=388:FOR T=1 TO 22:MOVE T,X:DRAW T,389:X=X+1:NEXT DBE 
T 
3189 1=388:FOR T-618 TO 636:MOVE T, 388:DRAW 618,X:X=X+1 DHB 
NEXT T 
3198 X=1:FO0R T-618 TO 636:MOVE T,29:DRAW T,X:X=X+1:NEXT DCD 
T 
3298 A$="L<MCC SOFTWARE" :2L=4:YL=23:G0SUB 359 )QH 
3219 WHILE INKEY$="":WEND:FOR H=9 TO 3:MU=REMAINCH):NEX DDC 
T 


3228 CLS:CALL &BCA7: INK 3,9:1INK 19, 1:RETURN )LJ 


DATACHAR .BAS 


5 MEMORY 8861F:NODE 1 


7 LOCATE 1,18:PRINT " DATAS DE LA LIGNE CORRECTS":PEN 2 





19 A=k8829:F=LA2CH:L=180:MHILE A<=F:FOR A=A TO AYI5:READ C$:K=V 


AL("R®+CS):S=6+K+65536#(5+K)32767):1F A<=F THEN POKE A,K 


28 NEXT:READ D$:T=VAL("&"+D$):1F TCS THEN PRINT CHR$(7);"Erreu 


r ligne";L:END ELSE L=L+5 

25 LOCATE 28,19:PRINT L-5:WEND 

188 DATA 2D,F9,93C, 5A, B4,B4, 1E, F9, 2D, 78,F8,2D,F8,B4,5A,B4, ÿB9D 
195 DATA B4, 54, 78, 2D,78,F4,3C,F4,B4, 2D,F9,3C, SA, B4, B4, 1E, 18D1 
119 DATA F9,2D,78,F9,2D,F4,B4, 5A,B4, B4, 5A, 78, 2D, 78,F8,3C, 198C 
115 DATA F8,B4,2D,F4,3C, 5A,B4,B4, 1E, F9, 2D, 78,F9,2D, F9,B4, 22BF 
129 DATA 54,B4,B4, 5A, 78, 2D, 78,F9, 3C,F9,B4,2D,F8,3C,S5A,B4,2B2F 
125 DATA B4,1E,F8,2D, 78,F9,2D,F4,B4,5A, B4,B4, SA, 78, 2D, 78, 3398 
139 DATA F,3C,F9,B4, 4A, C9, C9, C9, C9, 4A,CG,CD,CB,C8, 4A, CB, SDFE 
135 DATA C#,C8,C8, 4A,C9,CA,C8,C8, 4A,C9, CD, C9, CD, 4A, CD, CO, 489C 
149 DATA C9,C9,4A,C9,C8,C9, C9, 4A,C9,C9,C8, C8, 4A,C8,CB,C8,533A 
145 DATA C#,4A,C8,C9,C8, C9, 4A,C9,C8,C8,C8, 4A, CD, C9, C9, C4, 5DDB 
158 DATA 44,C9,C8,C9,C8, 4A,C9,C9,C9,C9, 4A, CB, C8, CB, CB, 4A, 6898 
155 DATA C#,C9,C9,C8, 4A,C9,C9,C9,C8, 4A,CB,C9, CD, CS, &A, C9, 729E 
169 DATA C9,C9,C9,8F,9F,9F,0F,0F, 1A,39,38, 38,38, 1A, 38,38, 767D 
165 DATA 39,39, 1A,39, 39, 39,39, 14, 39, 38, 39, 30, LA, 39, 39, 39, 793B 
179 DATA 39, 14,39, 39,39, 39, 1A, 39,35, 35, 38, 1A, 39, 35, 38, 39, 7BF9 
175 DATA 14,38,39, 39,38, 1A, 39, 30, 35, 38, LA, 39, 39, 39, 39, 1A, 7EA1 
189 DATA 39,36,39, 30, 14, 39, 39, 30,39, 1A, 30, 38, 38,38, LA, 39, 815F 
185 DATA 39,39, 39, 14,38, 39,39, 39, 14, 39, 39, 39, 39, 14, 39, 39, B41D 
199 DATA 39,36, 14,39, 39, 39,36, 8F,0F,0F,9F,9F,9B, 93,93, 93, 85B6 
195 DATA 93, 9B,93, 93,93, 63,08, 03,93,03,93,0B, 83, 83, 63,93, 85FE 
288 DATA 68, 83,93, 93,93, 8B, 93, 93,93, 93, 9B, 93, 3, 93,93, 8B, 864E 
265 DATA 93,93,93,93,98B, 63,93, 03,93, 0B, 93,93, 93, 93, 8B, 93, 8696 
218 DATA 83,83, 93, 8B, 93,83, 43, 83, 0B, 93,93, 93, 93, 9B, 93,93, 86DE 
215 DATA 83,83,0B,93,93,93,93,0B,93, 83, 93,93, BB, 93, 83,93, 8726 
229 DATA 83,9B,93, 83,93, 93, 88, 03,93, 93,03, 8F,9F,9F,9F,9F,67A2 
225 DATA 5F,FF,FF,FF,FF,5F,FF,FF,FF,FF,5F,FF,FF,FF,FF,5F,9512 
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230 DATA FF,FF,FF,FF,5F,FF,FF,FF,FF,5F,FF,FF,FF,FF,5F,FF, A322 
235 DATA FF,FF,FF,5F,FF,FF,FF,FF,5F,FF,FF,FF,FF,5F,FF,FF, 8132 
249 DATA FF,FF,5F,FF,FF,FF,FF,5F,FF,FF,FF,FF,5F,FF,FF, FF, BF42 
245 DATA FF,5F,FF,FF,FF,FF,5F,FF,FF,FF,FF,5F,FF,FF, FF, FF, CD52 
258 DATA 5F,FF,FF,FF,FF,5F,FF,FF,FF,FF,5F,FF,FF,FF,FF,0F, DA72 
255 DATA 9F,0F,9F,0F,4A,C8,CP,C8,CP, 4A, CD,CA, CH, CA, 4, 4, E1CC 
260 DATA 49, 49,48, 4A, 49, 49,49, 49, 4A, 40,48, 49, 48, AA, 48, 48, ESEA 
265 DATA 49,49, 4A,84,84,84,CB, 4A, 49,49, 48, 4, &A, 49, 49,49, EB54 
216 DATA 49, 4,48, 49,49, 49, 4A, 49, 49,49, 45, 4A, 46, 49, 48, 45, EF72 
275 DATA 4A,84,84,84, CD, 4A, 48, 49, 49,48, 4, 49, 49, 49, 49, 4A, F4EG 
289 DATA 49,49, 48, 49, 4A, 49, 49,49, 49, 4A, CS, CB,CB, CB, 4A,C,FBB4 
285 DATA CS, C9, C9,8F,9F,9F,0F,0F,BE, 48,CD,CA,0C, GE, CO, CA, 817F 
298 DATA C9, 84,44, C9, C8, CO, CH, 4A,6C, CC, CC, 68, 4A,9C, 3C, 3C, BA21 
295 DATA CB, 44,98, 98, 5F, CB, 44,98, 8B,5F,C8, 44,98, 8B,5F, C8, 1125 
386 DATA 44,98, 0B,5F,C6, 44,98, 8B,5F, C6, 44,98, 98,5F, C8, 4A, 17AB 
385 DATA 98,9B,5F, C8, 4A,98,9B,5F, C8, 44,98, 98, 5F, C8, 4A, QC, 1EB3 
319 DATA 30, 30, C8, 44, 6C, CC, CC, 66, 44, CB, CS, CA, CB, DE, CA, CB, 2751 
315 DATA CS, 84,9E, 48, C8, CO, 0C,0F,8F,0F,8F,0F, 60,09, 09, 89, 2AC2 
329 DATA 22,89, 09,89, 11, 22,99, 09,99, 33, 22, 00,99, 11,22, 22, 2BC1 
325 DATA 99,09, 33,89, 22, 00,00, 22,89, 22, 60,09, 22,09, 22, 84, 2CA2 
335 DATA AC, 26, 8C, 26,09, 89, 22, 09, 22,08, 99,22, 11,22,94, 8C, 2DAF 
335 DATA 26, 19, 26,99,98, 22,11, 22,69, 11, 22,89,69,4, 19, 26, 2EDF 
349 DATA BC, 80,99, 11,22, 89,09, 09, 99,09,99,09,94,0C,0C, 8C, 2F52 
345 DATA 0C, 80,08,09,98,99,00,09,60,06,80,00,09,09, 99,09, 2F5E 
359 DATA 4A,C9,C0,C0,C0,5F,C8,D5, C9,D5,5F,C8,D5,CA,D5, 4A, 3Aÿ4 
355 DATA C9, CO, CB, CA, 44, CO, CB,CB, CB, 44,85, 4D, BD, CS, 4A, 85, 42C6 
369 DATA BD, D, C8, A, 84, BE, DE, CO, 4A,84,0E, DE, CA,5F,85, 0D, 47E5 
365 DATA 9D,D5,5F,85, 4D, 6D,D5, 44,84, 0E, SE, CA, 4A, 84, 8E, BE, 4D2E 
376 DATA C9, 44,85, 8D, 8D, C9, 4A, 85, 0D, 9D, CA, 4, CA, CB, CB, CA, 5484 
375 DATA 44,C9,C8, C8, C8, 5F,C8,D5,C9,D5,5F, CS, DS, C9, D5,9F, SEFS 
385 DATA 8F,0F,9F,0F, 09, 00,08, 09,09,06,09, 00,99, 08, 19, 38,5F71 
385 DATA 39,38,98, 19,B6, 34, 36,08, 19, 74,2D,8F, 69, 19, 34,0F, 6218 
399 DATA 8F,8A,19,34,0F, 8D, 9A, 19, 2D,0F,0E, 0F, 19, 20,9F, 25,636D 
395 DATA 9F, 19,20, 1A,38,8F, 19,20, 14,19,8F, 19, 2D, 1A, 19,0F,G4FE 
499 DATA 19,20, 14,39,9F, 19,20, 9F,25,9F, 19, 2D,9F,0F,9F, 19,66€ 
485 DATA 3C,0E,0F, 04,98, 00,0F, 00, 84,09, 60,05, 8F, 09, 09,09, 672B 
419 DATA 89,69,09,80,09, 09,09, 00,09,09,09, 09,09, 00,09, 00,672B 
415 DATA 99,08,FF,FF, FF, AA,98,BE,FF, FD, AA, 89, FF, 7C, OF, JA, 6FCA 
429 DATA 88,FF, AD, 9F,9F,90,FF, AD, 0E,0F,09,FE, 0F,0F, 6D, OA, 7499 
425 DATA FE,0F,5F,9F,8A,FE,9F,FF,AF, OA,FE, OF, AA, AF, DA, FE, 7C48 
439 DATA BF, AA,AF, BA,FE, 8F,FF,AF, GA,FE, 0F,5F,0F,0A,FE, 0F,8311 
435 DATA 9F,0F, A, FF, AD, 6D,9F,90,09,05,9E,0F,09,09, 89, 0F, 8532 
448 DATA BA, 80,09, 09, 09, 80,09, 09, 00,09,09,00,95,08,05,0p,853C 
445 DATA 99,60,08,00,08,09,03,03,03,02, 89, 16,83, FD, 92,09, 865F 
459 DATA 83,7C,8F, 84,89, 93, AD, 8F,0F,09,03, AD, 6E,0F, 68,03, 8895 
455 DATA 0F,9F,9D, SA ,93,0F,9B, 0F, 9A,93,0F,03,07,0A, 83,0F, 6938 
469 DATA 82,87, 04,93,0F, 82, 07, 8A,03,0F, 93,07, 0A,03,9F, 0B, 8983 
465 DATA 9F,6A,93,0F,9F,8F,0A, 93, AD, 80, 9F,90,69,05, BE, OF, BAF4 
478 DATA 69,68,89,8F, 04, 09,00, 00,08,00,08,00,00,08,05,08, 8BOD 
475 DATA 66,09,99,069,99,09,99,00,06,00,06, 49, C9, A2, 09,99, BCAF 
489 DATA F3,98,D1,99,99,99,3F, 39,08, 49, 3F, 35, 3F, A2, 48, 7F, 9256 
485 DATA 3F,BF, 42,19, 7F,35,BF, A2, 18,95,D1, 78, 24,51, 39,99, 9947 
499 DATA 78, 24,89,99,71,71,09,99,71,3F,35, 98,06, 18, 9F, A2, 9D34 
495 DATA 99,99, 49, 71,A2,00,99, 19,F3, A2,99,88,51,9F, 2A, 09, AGEG 
588 DATA 99,89,71,80,09,60,09,00,09,06,09,99,98,09,99,08, A157 
585 DATA 96,09,08,00,09,00,08,09,98,60,90, 00,09, 99, 90,09, A157 
518 DATA C3, 82,99, 89,41,C3, C3, 99,09, 41, EB,EB, 82,08, D7, 5D, AB38 
515 DATA 5D, 82,98, D7,57,57,C3, 41,D7,5D,5D, C3, 41,C3, EB,EB, BACE 
529 DATA C3,D7,EB, C3, C3, EB, D7, 5D,EB,FF, 49, 07,98, 98,88, 49, BA5B 
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525 DATA D7,98,98,98,ERB, 41,96, 98, 5D, 62, 41, AA, 86, 49, 99,09, BEA1 
538 DATA D7,8B,EB,89,99,C3,FF, 82,99,99,99,C3,99,08,99,99,C372 
535 DATA 99,00,90,90,09,00,00,90,09,00,60,09,00,09,69,99,C372 
549 DATA 09,60,00,69,09, 09,99, 09,99,FF, 2A, 99,96, 19,FF,EE,C698 
545 DATA 99,09,55,75,9D,98,99,FF, 75,DD, 2A,99,F7, 75, DD, 2A, CCED 
558 DATA 89,B2,FF,EE, 2A, 09,B2,FF,EE, 2A,99,B2,FF,EE, 2,98, D548 
555 DATA B2,FF,EE, 2A,08,F7,39,DD, 2A,99,D1,FF,FF, 99, 99,51, DD5F 
568 DATA FF,BF,99,99,99,F7, AA, 00,06,00,99,99,99,08,00,09,E9BE 
565 DATA 99,99,09,00,00,00,09,09,09,00,00, 09,09, 00, 89,09, EDBE 
579 DATA 99,80,90,00,00,09,09,00,09,00,09,00,00,08,98,99,E9BE 
575 DATA 99,60,00,09,08,00,90,FF, AA,00,89,19,FF,EE, 89,09, E464 
588 DATA FF,75,DD,2A,99,FF, 75, DD, 2A,99,F7,75,DD,2A,88,F7,ECC4 
585 DATA 75,DD,24,98,F7, 75,DD, 2A,88,F7,75,DD, 24,99, 19,FF,F435 
598 DATA EE, 89,99, 89,F7, AA, 09,09,09,00,00,09,98,99,98,D9,F6C4 
595 DATA 99,99,96,09,09,00,96,09,00,00,00,00,00,00,69,99,F6C4 
699 DATA 09,69,09,09,99,90,00,00,00,00,09,00,98,08,98,98,F6C4 
695 DATA 99,09,99,00,09,00,00,09,00,09,090,09,60,99,99,99,F6C4 
619 DATA FF,2A,98,99,19,FF,6E, 99,99,51,75,0D,98,99,51, 75,FB93 
615 DATA 9D, 99,09,51,75,9D,98,99,51,75,9D, 89,09, 19,F7,EE, ODEB 
629 DATA 99,89,89,F7, AA, 90,00,00,09,05,99,00,99, 00,98, 09, 528C 
625 DATA 09,09,09,00,09,00,00,09,90,09,00,09,00,09,09,09,928C 
638 DATA 09,80,00,99,00,90,09,00,90,90,99,99,DD,5E,99,DD,S4A4 
635 DATA 56,91, DD,6E, 92, DD,66,93,96,96,C5,E5, 86,92, 1A, 77, GODF 
648 DATA 23,13,19,FA,E1,CD, 26,BC,C1,19,EF,C9,94,2C,94,9C, 1958 
645 DATA 19,19,19,19,51,51,51,51,55,FF, 99,99, 99,96, 84,98, 1344 
659 DATA 99,29,99,29,99,A2,99, À2,55,FF,99,99,94,0C,94,94, 1634 
655 DATA 96,19,99,19,99,A2,51,99,55,FF,90,00,84,0C, 04,94, 18B3 
669 DATA 89,18,99,19,99,F3,09,51,55,FF,99,09,90,04,90,0C, 1BTB 
665 DATA 99,39,19,19,51,F3,98,51,98,55,99,99,54,0C, 94,99, 1DC9 
679 DATA 19,90,09,39,99,51,51,51,55,FF,90,09,94,0C,04,94, 2968 
675 DATA 19,09,19,39,51,51,51,51,55,FF, 00,98, 04, 0C, 09, 94, 2364 
688 DATA 89,19,89, 29,99, A2,51,09,55,00,09,90,94,0C,90,04,24F4 
685 DATA 19,19,19,39,51,51,51,51,55,FF,09,99,04,0C, 64,94, 2894 
698 DATA 19,19,19,39,99,51,99,51,55,FF,99,00,08,08,90,09,2A5A 
695 DATA 99,09,99,00,99, A2,09,09,09, AA, 96,00, 90, 99, 89,99, 2BAG 
799 DATA 69,80,99,00,99, À2,09,00,09, AA, 55, 00,98, 08,90, 90, 2D47 
795 DATA 99,00,98.00,09,00,09, À2,09, AA, 09,00, 09,00, 69,80, 2E93 
718 DATA 88,80,00,09,09,09,09, A2, 09, AA, 55, 90, 90,08, 90,98,3044 
715 DATA 19,00,90,00,00,00,00, 00,00, 09, 60,09, 60,08, 84,04, 3964 
728 DATA 19,19,99,19,99, A2, 99,00,09, AA, 09,00,99,08,90,06,31FQ 
725 DATA 99,29,08, 26,90, A2,90, 00,90, AA,80,00,04,8C, 84, 9C, 330C 
739 DATA 19,19,19,19,51,F3,51,51,55,55, 99, 09,94, 9C,94, DC, 368C 
735 DATA 19,19,18,19,51,A2,51,51,55,FF,89, 99,84, 0C, 64, GC, 39D5 
749 DATA 19,89,19,80,51,99,51,99,55,FF,99,99,94, 98,94, 9C, 3097 
745 DATA 19,19,19,19,51,51,51,51,55,FF,99,09,04,9C,D4,9C, SEFF 
759 DATA 19,89,19,99,51,A2,51,90,55,FF,99,90,94,9C,94,9C, 41D7 
755 DATA 19,09,19,90,51, À2,51,09,55,99,80,99, 84, GC, 64,0C, 43B8 
769 DATA 19,19,19,99,51,99,51,51,55,FF,99,09,94,94,94,94,4637 
765 DATA 1,19,19,19,51,F3,51,51,55,55, 99, 09,84, 9C, 69,98, 491F 
179 DATA 09,29,09,29,609, A2,99,A2,55,FF,99,99,94,0C,08,98, 4C0F 
775 DATA 99,29,00,20,08, A2,98, À2,55, AA, 90,99, B4, 94, 04,94, 4EA2 
789 DATA 19,19,19,29,51,A2,51,51,55,55, 99, 99,94,00,94, 99, 5139 
785 DATA 19,09,19,09,51,99,51,90,55,FF,89,99,04,94,04,9C,5367 
799 DATA 19,39,19,19,51,51,51,51,55,55,99,99,94,94,94,94,55C5 
795 DATA 19,39,18,39,51,F3,51,51,55,55, 99,09, 84, 9C, 94,84, 58ED 
898 DATA 19,19,19,19,51,51,51,51,55,FF,99,99,94,9C,94,89C,5BES 
895 DATA 19,19,19,19,51,F3,51,09,55,09,90,09,D4, 9C, 94, 9C, 5E2F 
819 DATA 19,19,19,19,51,51,51,51,55,FF, 98, AA,94,9C,94,9C,61D1 
815 DATA 19,19,19,19,51,A2,51,51,55,55, 96,99, B4, 9C, 94, 9C, 6478 








829 DATA 19,89,19,89,51,F3,99,51,55,FF,99,09,94,0C, 04, BC, 6799 
825 DATA 99, 20,08, 28,05, A2,68, À2,86, AA,99,80,94, 04, 54, 84, 69D7 
838 DATA 19,19,19,19,51,51,51,51,55,FF,99,99,04,04,06,94,6CBF 
835 DATA 18,19,18,19,51,51,51,51,96, AA, 80, 09,04,04, 04,04, GEFD 
849 DATA 19,19,19,19,51,F3,51,F3,55,55,49,69,94,04,04,04,727F 
845 DATA 18, 19,08, 29,98, A2,51,51,55,55,49,00,84,94, 04, 04, 74BD 
859 DATA 19, 19,98, 29,99, A2, 00, A2, 80, AA, 99,69,04,0C, 08,04, 76FF 
855 DATA 99, 19,08, 29,99, A2,51,00,55,FF,90,60,69,09, 09,09, 7976 
865 DATA P9,59,99, 89,99, 99,90, 99, 09,09, 09,99,09,00,96, 09, 776 
865 DATA 99,00,08,00,99,99,09, 09,09, 09, 60,09, 60,09, 09,09, 7976 
870 DATA 99,89,99, 89,99,99,01,01,85,01,91,09,06,09,08,09,797F 
875 DATA 98,09,09,09,00,00,91,01,95,01,81,09, 00,09, 09,00, 7988 
889 DATA 69,89,99,81,98,91,06,01,95,01,91,00,09,00,08,8, 79Aÿ 
885 DATA 99,99,09,01,81,91,01,01,91,91,91,90,09,09, 00,99, 798 
899 DATA 89,99,99,81,91,07,91,91,91,01,91,99,09,09,96, 99, 7986 
895 DATA 96,00,09,90,09,00,91,01,91,01,61,00, 60,09, 09,00, T9BB 
989 DATA 58, 89,99, 89,90, 09,91,01,92, 02, 92,09,99,00,08,69,79C3 
995 DATA 99,09,08,99,09,08,91,91,81,01,81,09, 00,09, 09,09, 79C6 
919 DATA 99, 89,99, 89,90, 09,81,01,91,01,91,09,99,00,06,09,79CD 
915 DATA 99,00,99,00,99,09,04,04,91,01,91,00, 09,09, 09,99, 79D8 
929 DATA 68,89,99,80,49,89,01,01,91,01,01,99,99, 09,98, 98, 79DD 

925 DATA 09,00,98,00,99,90,91,01,81,01,91,00, 99,09, 09,09, 79E2 
939 DATA D9,88,91,81,91,01,93,03,91,01,91,01,91,01,08,08,79FA 

935 DATA 99,91,91,81,91,91,81,01,91,01,81,06,81,01, 99,08, 7ABC 

949 DATA 89,81,81,81,05,85,81,01,91,01,41,91,95,05,09, 08, 7A29 

945 DATA 06,00,09,00,00,00,09,09,06,09,80,09,90,09, 09,09, 7A29 

959 DATA 99,80,09,60,09, 00,00, 09,00,00,09,00,09, 08,09, 08, 7A29 

955 DATA 99,00,08,00,09,00,90,09,81,01,81,04,81,01,01,09, 7A33 

969 DATA 98,84,91,81,91,07,99,09,91,0P,91,01,96,01,91,99, 7A4C 

965 DATA 99,91,06,91,91,91,91,91,84,09,81,01,81,05,81,09, 7A65 

979 DATA 89,81,81,91,91,81,09,01,91,08,99,09,09,08,99, 08, 7AGC 

975 DATA 99,05,95,05,95,05,08,00,61,01,91,81,91,91,83,09, 7ABE 

989 DATA 99,89,29,09,09,89,99,09,01,01,91,91,01,08,91,08, 7AQC 

985 DATA 99,69,06,00,068,00,98,00,09,09,91,81,90,09, 89,09, 7ASE 

999 DATA 69,99,29, 89,00, 09,09, 09,00,00,02,01,09,08,98,08,7AA1 

995 DATA 99,09,08,00,99,00,09,09,99,08,89,01,81,09, 00,09, 7AAB 

189 DATA 99,09,93,01,91,91,08,09,08,01,91,91,81,01,51,99, 7ABT 
1985 DATA 96,99,91,91,93,91,80,09,00,01,01,01,06,09,92, 00, 7AC8 
1919 DATA 99,00,81,01,91,91,08,08,08,05,05,05,05,09,91,99, 7AE! 
1915 DATA 99,00,96,01,01,91,69,09,00,09,09,09,00,96,01,09,7AER 
1829 DATA 49,09,91,01,91,91,93,91,01,96,91,92,61,01,81, 69, 7809 
1925 DATA 99,09,88,01,91,81,96,41,01,91,01,01,01,99,08,99,7B17 
1839 DATA 99,09,09,09,09,00,06,00,08,00,09,00,99,90,99,90, 7817 
1935 DATA 99,09,06, 00,69, 00,00,09,00,09, 00,09, 00,06,00,09,7B17 
1849 DATA 09,07,09,08,01,01,01,91,08,91,98,01,91,91,91,09, 7B2F 
1945 DATA 99,01,85,01,96,00,99,00,00,01,00,01,09,99,01,96, 7B3F 
1858 DATA 99,09,99,01,99,01,91,01,98,01,08,01,99,81,91,99,7B47 
1955 DATA 99,91,91,01,99,01,99,91,99,05,09,01, 09,99, 09,09, 7B52 
1869 DATA 69,01,98,09,01,91,99,01,98,06,91,91,91,81,91, 89, 7B67 
1965 DATA 46,91,91,09,81,00,09,91,09,00,09,06,09,99,01,99, 7B6C 
1979 DATA 99,09,91,00,91,90,91,01,92,01,91,81,91, 92,91, 09, 7879 
1975 DATA 69,91,95,01,91,00,91,89,01,91,09,00,01,91,01,46, 7B87 
1989 DATA 99,09,89,00,91,00,91,09,01,01,98,08,91, 9,99, 09, 7B&C 
1985 DATA 99,01,91,81,91,99,1,91,09,91,00,01,01,91,01,99, 7B97 
1899 DATA 89,01,99,03,00,00,08,01,08,01,98,03,91, 90,99, 09,7BA1 
1995 DATA 99,01,99,01,90,01,86,91,99,91,85,05,01,91,01,09,7BE9 
1189 DATA 99,91,99,05,99,01,98,01,91,00,98,06,98, 99,91, 99, 7BC3 
1185 DATA 69,01,08,99,90,01,09,09,01,09,91,98,01,09,95, 99, 7EDS 


1119 DATA 99,91,91,91,91,94,98,91,91,91,91,91,81,91,91,99,7BES 
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1115 DATA 96,99,09,00,00,09,09,09,06,09,00,09,00,99,00,99,7BE5 
1129 DATA 99,00,00,09,99,90,06,06,09,00,09,09,00,00,00,89, 7BES 
1125 DATA 99,91,91,91,91,95,91,91,01,95,91,91,91,91,91,99,7BFB 
1139 DATA 99,91,00,04,00,00,09,02,00,08,99,90,00,00,01,899,7C03 
1135 DATA 99,91,91,91,91,91,01,91,05,91,91,01,98,91,96,98,7C21 
1149 DATA 09,91,99,00,09,91,98,91,99,91,90,93,90, 90,91, 99,7C29 
1145 DATA 99,96,91,91,91,97,91,01,93,91,01,91,91,91,91,99,7C44 
1159 DATA 99,91,09,91,90,01,98,05,94,09,91,99,95,09,91,29, 7057 
1155 DATA 99,91,91,91,01,91,91,01,91,91,91,91,91,91,96,99,7CGA 
1169 DATA 99,01,09,00,99,01,96,01,09,08,90,00,01,00,91,99,7C6F 
1165 DATA 99,91,91,91,91,92,91,91,91,95,05,91,91,91,06,99,7CBB 
1179 DATA 99,91,909,90,00,02,08,00,01,69,06,00,99,90, 91,99, 7C96 
1175 DATA 99,01,93,91,81,91,95,95,91,91,91,09,91,91,91,99,7CAD 
1189 DATA 99,06,09,96,99,00,08,91,00,08,95,09,02,80, 91,899, 7CC2 
1185 DATA 99,01,91,08,91,91,01,93,91,91,91,91,01,91,91,99,7CD9 
1198 DATA 49,91,99,00,09,01,09,01,08,68,01,90,96,99,91,99, 7CE4 
1195 DATA 98,91,91,91,01,91,91,91,91,91,91,91,91,91,91,99,7CF2 
1258 DATA 99,09,09, 00,00, 00,09,00,08,09,00,00,09,00, 90,09, 7CF2 
1295 DATA 96,08,00,00,00,00,00,060,00,00,00,00,09,09,08,99,7CF2 
1218 DATA 99,92,93, 03,92, 03,92,04,93,02,04,03,03, 02, 92,89, 7D18 
1215 DATA 99,91,91,01,91,91,91,91,01,91,91,91,81,91,91,99,7D26 
1228 DATA 09,00,09,06,09,00,00,01,00,00,00,91,90, 09, 99,09, 7D2E 
1225 DATA 90,08,00,01,00,00,00,96, 00,09, 00,01,00,00,00,00, 7D36 
1239 DATA 99,09,09,01,91,07,91,91,91,81,91,91,00,09, 09,90, 7D45 
1235 DATA 90,00,90,01,00,09,00,00,00,09,00,91,00,09,00,90,7D47 
1249 DATA 99,09,99,01,09,00,09,00,00,08,08,01,00,00, 90,09, 7D49 
1245 DATA 99,91,91,01,91,01,91,91,91,09,00,91,91,91,91,99,7D55 
1259 DATA 99,91,91,91,91,91,91,91,91,91,91,91,91,91,91,99, 7D63 
1255 DATA 49,91,91,01,91,06,91,91,01,91,91,91,91,91,91,99,7D76 
1269 DATA 99,91,91,91,91,91,91,01,91,91,91,91,01,91,91,99,7D84 
1265 DATA 99,91,91,91,01,91,91,91,91,01,01,91,96,91,91,99,7D97 
1279 DATA 89,99,09,91,91,01,91,01,91,91,91,91,91,99,09,89,7DA1 
1275 DATA 99,91,91,01,01,91,91,98,98,91,91,91,91,91,91,99,7DBD 
1289 DATA 99,95,05,95,95,95,95,05,95,95,95,95,95,95,95, 89, 7E93 
1285 DATA 99,98,96,99,00,09,00,00,00,09,00,99,00,09,00,90,7E03 
1299 DATA 99,09,09,00,00,00,06,09,08,90,09,00,99,99,09,99,7E03 
1295 DATA 99,97,91,91,91,01,09,08,01,91,91,99,91,91,95,90,7E28 
1399 DATA 99,91,91,01,91,91,90,91,91,91,91,98,91,91,95,09,7E39 
1395 DATA 99,91,91,01,01,91,92,91,91,91,91,91,91,91,95,99,7E43 
1319 DATA 99,91,91,91,91,91,09,91,91,91,96,90,91,91,95,99,7E58 
1315 DATA 99,91,91,91,01,06,09,09,09,04,00,09,01,91,91,90,7E69 
1329 DATA 99,99,04,00,01,00,90,96,91,91,91,90,91,91,91,99,7E7A 
1325 DATA 99,91,91,91,01,09,00,91,91,91,91,93,91,91,91,99,7E88 
1338 DATA 99,01,91,91,91,92,93,91,91,91,91,09,91, 91,86, 99, 7E9D 
1335 DATA 99,06,91,91,91,99,00,91,01,81,91,00,00,00,09,09,7EAA 
1349 DATA 09,00,99,01,00,960,99, 02,68, 09,00,00,09,99,00,99, 7EAD 
1345 DATA 99,96,91,91,91,91,91,91,91,91,91,91,91,91,91,99,7EC9 
1359 DATA 99,91,91,91,91,91,91,91,91,91,01,91,91,91,01,49, 7ECE 
1355 DATA 99,08,03,09,00,00,00,00,00,00,09,99,09,03,06, 99, 7ED4 
1369 DATA 99,95,95,05,05,94,91,01,91,99,96,91,81,91,89, 09, 7EF8 
1365 DATA 99,95,95,05,06,99,06,91,91,92,91,91,01,08,09,99,7F22 
1370 DATA 06,09,90,00,090,00,09,09,08,09,00,90,00, 89,99, 49, 7F22 
1375 DATA 69,09,00, 09,00, 00,00, 09,00, 09, 00, 09,00, 09,00, 99, 7F22 
1388 DATA 99,97,91,91,91,91,91,91,91,91,91,91,91,91,91, 99, 7F36 
1385 DATA 99,01,09,01,09,09,01,99,09,91,06,01,00,00,01,99,7F3C 
1399 DATA 89,91,09,05,09,00,91,92,91,05,98,91,91,91,91,99,7F4F 
1395 DATA 99,93,98,01,80,09,91,99,00,91,90,01,09,09,91,99,7F57 
1489 DATA 99,91,99,08,91,91,95,91,91,92,91,91,90,91,06,99,7F74 
1495 DATA 99,91,08,09,00,09,81,00,060,01,00,00,00,01,09,99,7F78 
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1419 DATA 99,95,91,91,91,91,92,08,90,01,91,01,01,96, 90,800, 7F6F 
1415 DATA 99,91,96,09,91,99,09,09,00,00,00,01,90,06,00,95,7F92 
1429 DATA 99,93,08,09,95,91,91,93,98,01,94,91,81,95,81,80, 7FAC 
1425 DATA 99,01,09,09,09,09,00,81,00,01,09,91,09,90,01,90,7FB1 
1439 DATA 99,01,91,91,91,91,91,94,01,05,90,01,91,99,01,90, 7FC4 
1435 DATA 96,09,01,09,09,00,00,01,00,09,09,90,91,09,01,99,7FC8 
1449 DATA 99,98,91,91,91,91,91,91,95,91,91,91,91,90,91,00,7FE0 
1445 DATA 98,08,06,09, 00,09, 00,99,01,00,00,09,00,09,91,99,7FE8 
1459 DATA 99,08,01,91,91,91,91,91,91,91,91,91,91,91,91,90, 7FFD 
1455 DATA 96,09,00,09, 00,09, 00,09,00,00,00,09, 00,00, 00,98, 7FFD 
1469 DATA 09,09,09,00,00,00,00,00,00,00,00,00,90,09, 90,80, 7FFD 
1465 DATA 69,09,00,00,09,00,05,00,00,05,09,09,00,00,00,00,8007 
1478 DATA 99,09,00,00,00,08,02,00,00,03,00,00,69,00,00,09, BGDC 
1475 DATA 99,00,99,00,91,91,01,99,00,01,91,91,09,00,00,99,8912 
1489 DATA 09,99,99,90,91,91,91,90,98,01,91,01,00,60,09,90, 8918 
1485 DATA 69,09,00,08,07,01,91,99,90,01,91,91,96,00,00,96,8034 
1499 DATA 99,90,91,01,01,91,91,09,00,01,91,91,91,91,00,99, BOSE 
1495 DATA 06,03,01,81,91,91,91,09,00,91,91,91,91,01,05,90, 8959 
1589 DATA 99,03,91,91,91,91,96,08,99,06,91,91,91,01,95,89,B96C 
1595 DATA 99,02,91,01,91,91,91,09,90,91,91,01,01,91,05,99,887D 
1519 DATA 99,02,91,91,91,91,01,00,00,91,91,91,91,91, 85,99, B9GE 
1515 DATA 99,00,91,91,91,91,91,99,90,01,01,91,01,91, 09,09, 8998 
1529 DATA 99,00,09,00,01,91,91,09,08,91,91,91, 00,00, 09,99, B99E 
1525 DATA 96,00,00,00,09,01,01,09,00,05,01,09, 00,09, 09,90, BDA6 
1539 DATA 99,09,96,00,00,00,04,00,06,08,09, 00,00, 09, 09,99, 8ÿB2 
1535 DATA 99,09,00,00,00,09,05,00,00,04, 00,09, 00,00, 00,09, GDEB 
1549 DATA 09,00,00,00,09,00,08,00,00,00,00,00,00,00,00, 00, BOBB 
1545 DATA 99,09,00,00,00,00,00,00,09,09,00,00,060,99,00,00, B0BB 
1559 DATA 99,91,91,05,91,91,96,91,91,01,91,04,91,01,05,99, BOD9 
1555 DATA 99,01,006,09,00,09,00,01,00,00,00,09,09,99,01,99,89DC 
1568 DATA 99,91,99,00,00,08,00,02,00,09,00,09,09,00,01,99,G89E9 
1565 DATA 99,01,00,09,90,00,00,01,00,00,00,09,00,00,03,99,BDES 
1579 DATA 09,03,99,07,01,01,91,91,91,01,98,91,91,90,91,09,8190 
1575 DATA 96,01,90,91,91,91,91,09,91,01,01,91,91,99,91,98,619B 
1589 DATA 99,91,99,01,91,00,00,01,91,91,91,00,01,99,91,99,8114 
1585 DATA 99,91,05,91,09,09,91,91,91,91,00,09,01,04,05,09,6129 
1599 DATA 99,01,09,91,91,98,91,01,91,99,00,00,91,90,81,09,8131 
1595 DATA 99,91,99,01,91,91,91,91,99,01,91,01,01,99,01,99,813C 
1699 DATA 99,04,06,01,98,91,91,91,91,91,91,91,95,80, 91,00, 68156 
1695 DATA 96,91,08,00,00,00,00,09,03,00,00,00,00,09,01,99,815B 
1619 DATA 99,01,09,09,09,00,900,00,01,98,00,00,69,99, 92,90, 815F 
1615 DATA 99,01,00,00,90,00,00,00,05,00,00,09,00,99,01,99,8166 
1629 DATA 99,95,91,91,92,91,91,01,95,81,91,91,96,91, 05,00, B186 
1625 DATA 90,99,96,09,00,09,00,00,00,09,00,09,00,99,00,00,8186 
1639 DATA 99,00,09,00,99,00,06,00,00,08,09,00,09,90,00,09,B186 
1635 DATA 09,99,06,01,91,91,91,97,91,91,01,91,01,08,90,90,8196 
1649 DATA 99,09,99,91,91,91,91,91,91,91,91,91,91,90, 00,90, G61A8 
1645 DATA 99,91,91,96,91,91,91,91,91,96,91,91,91,91,91,95,61B8 
1659 DATA 99,91,96,91,92,92,91,91,91,91,93,03,91,06, 91,99, 81D6 
1655 DATA 99,91,01,91,99,09,91,91,91,01,00,99,91,91,01,99,81E9 
1669 DATA 99,91,91,91,96,91,91,91,91,91,91,91,96,91,91,99, 81FB 
1665 DATA 99,91,91,91,91,91,06,91,91,91,91,01,91,06,91,09,8219 
1679 DATA 99,81,91,96,91,91,91,94,94,91,91,91,91,91,91,99, 8229 
1675 DATA 99,91,91,01,91,01,91,99,90,91,91,01,96,91,91,99,623A 
1689 DATA 99,91,91,91,91,01,96,91,91,91,91,91, 96,91, 91,99, 8252 


1685 DATA 99,91,91,01,91,96,01,91,91,91,91,91,91,91,91,99, 8265 


1699 DATA 99,81,91,95,91,91,91,91,91,91,91,91,95,01,61,90, 827B 
1695 DATA 95,91,91,95,09,05,09,05,05,00,05,99,91,91,91,99,68299 
1769 DATA 09,99,99,01,96,01,91,91,91,91,96,81,01,80,00,09, B2AD 
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1795 DATA 66,00,06,09,91,91,91,98,98,01,91,01,99,99,00,09,82C3 
1719 DATA 09,09,00,09,00,00,00,06,09,00,00,00, 00,90, 99, 00, B2C3 
1715 DATA 66,09,00,00,00,00,09,00,00,00,90,00,00,09,09, 99, 8203 
1728 DATA 99,01,91,92,91,01,97,08,08,06,91,01,90,89, 84,99, B2DC 
1725 DATA 69,01,08,00,00,09,91,06,00,09,01,09,00,09,01,90,82E6 
1730 DATA 89,06,89,91,91,09,91,91,01,08,93, 00,60, 06, 01,09, B2FB 
1735 DATA 99,00,00,05,06, 00,09, 09,00,09,05,00, 00,08, 00,99, 830B 
1749 DATA 99,09,09, 00,00, 00,06, 00,01, 00,00,91,91,96,99,09,B31A 
1745 DATA 99,91,01,01,09,00,03,09,91,05,09,01,99,90,05,09,832C 
175$ DATA 49,01,91,91,96,90,91,09,09,01,90,94,00,01,91,29,833D 
1755 DATA 09,00,06,00,00,00,01,09,00,06,00,00,00,00,01,99,8345 
1768 DATA 99,61,05,00,00, 00,09, 00,09, 09,00,90,00,96, 02, 99, 8353 
1765 DATA 99,91,00,09,00,01,01,91,09,91,91,91,09,90,00,09,835A 
1779 DATA 09,01,91,96,99,01,00,61,00, 06,00, 06, 99,98, 01, 89,637 
1775 DATA 99,95,00,09,09,06,09,05,90,01,01,05,00,91,99,99,6393 
1789 DATA 99,09,00,00,09,00,00,06,08,05,00,00,00,01, 96, 99, 839F 
1785 DATA 06,06,00,01,01,05,00,04,96,09,00,05,00,01,90,09,683BC 
1799 DATA 89,91,91,96,99,00,01,91,09,99,06,05,90,91, 92,99, 63D6 
1795 DATA 99,09,09,00,09,00,00,00,90,09,00,09, 09,99, 00,09,83D6 
1899 DATA 99,09,09,00,99,00,00,00,00,00,00,00,00, 00,80, 99,63D6 
1895 DATA 96,09,95,05,05,90,00,95,95,05,00,09,05,09,95,09,83FE 
1819 DATA 99,09,05,90,09,00,66,08,05,00,00,00,65,90,95,89,B412 
1815 DATA 99,09,05,05,00,00,00,00,95,09,00,00,05,95,05,09,843g 
1828 DATA 09,09,05,00,09,00,00,05,95,05,00,08,05,00,95,89,B44E 
1825 DATA 09,00,00,00,00, 00,00, 00,00, 00,00,09, 00,00 ,00,09,844E 
1839 DATA 09,97,91,91,91,91,91,91,01,81,91,01,91,91,91, 90, B462 
1635 DATA 99,91,92,92,01,01,91,03,93,01,91,91,04,04,01,98,847C 
1849 DATA 09,91,91,92,91,91,91,91,93,91,01,01,01,04,91, 90,849 
1845 DATA 99,01,91,91,91,91,91,91,01,01,91,91,91,91,91,09,849F 
1859 DATA 09,81,01,91,91,01,91,00,00,00,90,91,81,81,01, 00, B4AB 
1855 DATA 09,08,01,01,01,91,01,90,09,09,00,01,01,01,08,09,B4Cÿ 
1869 DATA 99,91,91,01,91,01,91,91,01,91,91,01,91,91,91,09,B4CE 
1865 DATA 99,01,01,01,91,91,91,01,01,01,91,91,91,91,91,99,84DC 
1870 DATA 99,01,05,95,91,01,91,05,05,01,91,01,85,85,81,80, 8592 
1875 DATA 99,00,00,00,00,00,09,00,00,00,00,09,00,06,00,09, 8592 
1889 DATA 09,00,00,00,09,00,00,00,06,09,00,08,66,00, 09,09, 8592 
1885 DATA 99,09,00,09,00,09,00,00,00,09,00,09,00,08,00,99, 8592 
1899 DATA 09,09,00,00,09,00,91,01,95,01,91,00,00,00,00,00,B58B 
1895 DATA 99,09,00,00,00,00,01,91,95,91,01,09,08,08,00,99,8514 
1990 DATA 09,09,09,01,98,91,96,91,95,91,91,99,90,98,80,89,852C 
1995 DATA 99,09,00,01,01,01,91,91,01,01,01,00,00,00,00,99,8534 
1919 DATA 99,09,99,01,91,97,91,01,91,91,91,00, 98, 00,00,09,6542 
1915 DATA 49,09,69,00,00,09,01,91,91,01,01,09,09,90,00,99,8547 
1928 DATA 09,09,00,90,90,90,91,91,02,02,02, 08,00, 00, 80,00,B54F 
1925 DATA 99,09,08,09,00,00,91,01,91,91,91,00,00,90,00,90,8554 
1938 DATA 99,00,00,00,00,00,81,91,91,91,91,00,00,00,99,00,8559 
1935 DATA 09,09,00,09,09,00,94,04,01,01,01,09, 00,90,00,90,8564 
1949 DATA 09,09,09,90,09,00,91,91,91,91,91, 08,00, 00, 09,09,B569 
1945 DATA 09,06,06,00,09,09,01,91,01,01,91,09, 00,09, 00,09, 856E 
1952 DATA 99,98,91,91,91,91,93,93,01,91,91,01,91,91,99,90,6586 
1955 DATA 99,01,91,01,91,91,91,91,01,91,91,96,91,91,99,08,6598 
1969 DATA 99,91,91,91,95,95,91,91,01,91,81,91,05,05,80,09,85B5 
1965 DATA 99,08,00,09,99,09,00,00,00,08,00,09,00,96,00,09, 8585 
1970 DATA 09,09,00,00,00,00,00,00,06,09,00,00,09,90,80,90,85B5 
1975 DATA 99,00,00,00,00,00,09,00,09,09,00,00,00,00,00,09,85B5 
1989 DATA 89,00,00,00,00,60,00,00,00,00,09,00,00,09,80,80,B5BS 
1985 DATA 09,09,09,00,00,09,00,00,00,00,00,09,00,08,96,09,85B5 
1999 DATA 09,09,99,00,00,00,00,08,08,00,08,99,00,80,00,29,85B5 
1995 DATA 99,09,06,00,00,09,00,09,00,00,06,09,00,00,00,99,8585 





2899 DATA 99,09,00,00,00,00,00, 00,08, 00,09,00,68,00,00,99,85B5 
2995 DATA 99,09,09,00,09,09, 09,00, 09, 09,00, 00,00, 00,08, 99,6585 
2819 DATA 7C,C6,98,67,D9,D5,11,58,C8,19,D1,C9,98, DD,5E, 89, BD1A 
2915 DATA DD,56,91,DD,6E, 92, DD, 66,93, 96, 14,C5,E5, 96,95, 1A, 92CA 
2929 DATA 77,13,23,19,FA,E1,CD,98,A8,C1, 19,EF,C9, 09,99, 09, 9958 
2925 DATA DD,5E,88,DD,56,91,DD,6E, 92, DD, 66,93, 96, 14,CD, 19, 9F5A 
2830 DATA BD,CS,E5,96, 95, 1A,E6, AA, 28, 06, 4F,7E,E6,55,B4, 77, A6D4 
2935 DATA 1A,E6,55, 28,96, 4F,7E,E6, AA, B1, 77,23, 13, 19,E6,E1, ADE9 
2849 DATA CD, 89, A9,C1,19,D8B,C9, 99,08, 98,00, 11,98, A4, DD, 6E, B3CB 
2945 DATA 99,DD,66,01,96,14,C5,E5, 96,95, 7E, 12, 13,23, 19, FA, BBAE 
2850 DATA Ef,CD,99,A6,C1, 18,EF,C9, 99,99, 09, 11,90, A4, DD, GE, BF85 
2955 DATA 99,DD,66,91,96,14,C5,E5,96,95, 1A, 77,23, 13,19,FA,C469 
2869 DATA Et,CD,99,A9,C1,19,EF,C9, 08,09, 99,9F,E0, E6, 06, 19, CBBB 
2965 DATA 2A,AC,A9,E5, 2A, AA, A9,E5,C5,CD,C8, Aÿ,C1,19,F9,E1,D614 
2979 DATA 22, AA, Aÿ,E1,22, AC, AB, C9, 2A, AA, A8, 7E,FE, 99,C2,D7, DF21 
2975 DATA Aÿ,11,29,88,C3,C9, A1,FE, 1, C2,E2, A9, 11,84, 88,C3,E7CA 
2880 DATA C9,A1,FE,92,C2,ED, AB, 11,E8,88,C3,C9,A1,FE,93,C2,F1F4 
2985 DATA F8,A9,11,4C,89,C3,C9, A1,FE,94,C2,93, A1, 11,B9,89,FASI 
2899 DATA C3,C9,A1,FE,95,C2,8E, A1,11,14,8A,C3,C9, A1,FE, 86, 92D2 
2995 DATA C2,19,A1,11,78,8A,C3,C9,A1,FE,97,C2,24,A1,11,49,DAGB 
2199 DATA BB,C3,C9,A1,FE,98,C2,38,A1,CD,E2, A1, 11, DC, 8A, 24, 13B5 
2195 DATA AC,AG,CD,3C, A9,C3,CF, A1,FE, 99, C2, 46, A1,CD, E2, A1, DDD 
2119 DATA 11,44,8B,C3,2F,A1,FE, DA, C2,54,A1,CD,E2, A1,11,6C, 263C 
2115 DATA 8C,C3,2F,A1,FE,0B,C2,62,A1,CD,E2,A1,11,98,8C,C3,2FE1 
2129 DATA 2F,A1,FE,9C,C2,78,A1,CD,E2, A1, 11,D9,8C,C3,2F, A1, 37DE 
2125 DATA FE, 9D,C2,7E, A1,CD,E2, A1, 11,34, 8D,C3, 2F,AL,FE, 9E, 4988 
2139 DATA C2,8C,A1,CD,E2, A1, 11,8C,6F,C3,2F, A1,FE, BF, C2, A6, 49FE 
2135 DATA A1,11,E8,88, 2A, AC, AG, CD, 19, AG, 11,14, BA, 2A, AC, AD,5141 
2149 DATA CD,3C,A9,C3,CF,AL,FE, 19,C2,B7, A1, 11, 4C, 89, 2A, AC, 5AD1 
2145 DATA Aÿ,CD,19,A9,C3,9A,A1,FE, 11,C9,11,B9, 89, 2A, AC, AG, 62B4 
2159 DATA CD, 19,A9,C3,9A,A1,C3,C9, A1, 2A, AC, AB, CD, 19, AG, 2A, GBBB 
2155 DATA AA, A9,23,22, AA, AD, 2A, AC, AD, 23, 23, 23, 23,23, 22, AC, 7157 
2169 DATA A9,C9,11,84,88, 2A, AC, AB, CD, 19,A8,C9, 21,90, C9, 22, 78A5 
2165 DATA AC, 9,21, 79,9E, 22, AA, A9, 96,99, C5, 2A, AC, AG,E5, CD, 8488 
2179 DATA AE, A9, 2A, AA, AD, 11, 19,08, ED, 5A, 22, AA, A9, E1,86,14,8719 
2175 DATA C5,CD, 89, A9,C1,19,F9,22, AC, AG,C1, 19, DD, C9, 21,99, 8F1B 
2189 DATA C9, 22, AC, AD, 21,F0,9E, 22, AA, AB,C3,F8, A1, 08, 60, 80, 96C9 
2185 DATA DD,6E,9,DD,66,91,E5,DD,6E, 92,DD,66,93,E5, 11,99, DBD 
2199 DATA A4,CD,74,AB,E1,D1,CD,3C, AB, C9, 7C,D6, 88,67, CB, 74, A766 
2195 DATA C9,D5, 11,89, 3F, 19,D1,C9, 89, 99, DD, 6E, 99, DD, 66,91, AE3D 
2299 DATA 22,56, 42,C9, 24,58, A2, CD, 44, A2, CD, 4A, A2, CD, 4A, A2, B671 
2285 DATA CD, 4A, A2, 22,58, A2, 2A,58, A2, 11,98, A4, CD, 74, AG, 2A, BD2A 
2219 DATA 58, 42,DD,5E,99,DD,56,91,CD, 3C, AB, C9, 24, 58, A2, 11,C43A 
2215 DATA 99, A4,C3,94, A9, 24,58, A2, CD, 99, A8, CD, 08, AG, CD, 98, CBAS 
2229 DATA A9,CD,99, A9,C3, 73, A2,C9,DD,6E,98,DD,66, 81,11, 79, D35E 
2225 DATA 9E,91,19,91,ED,B9,C9,99,99,09,09,00,00,90,00,98,D674 
2239 DATA 89,00,00,09,00,00,09,00,66,08,00,00,90,00, 90,80, D674 
3989 CLS:PRINT " FICHIER LANGAGE MACHINE CORRECT. .." 

3819 PRINT:PRINT:PRINT 

3929 PRINT "UNE TOUCHE POUR LA SAUVEGARDE..." 

3939 SAVE "CHALIBIN",B, 48829, &{AAQ 

3549 REM ::: POUR LES CPC 464 SANS D7 LE FICHIER 4CHALIBIN# DEV 
RA SE TROUVER A LA SUITE DU FICHIER *CHARLIEX SUR VOTRE K7 
3959 REM ::: EN CAS DE MSG D'ERREUR DU GENRE #TYPE MISMATCH IN 
19 x L'ERREUR EST DANS LA LIGNE DE DATA SUIVANT CELLE QUI A ET 
E DECLAREE CORRECTE 

3969 REM ::: EXEMPLE ....... LA VERIFICATION MONTE JUSQU'A LA LI 
GNE 299 PUIS VOUS AVEZ *xTYPE MISMATCH IN 19 * VOTRE ERREUR EST 
DANS LA LIGNE 29518 
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ECRITURE ARABE 


[Mileat-1RleR 1e LY\ 





Valable pour CPC 464 - 664 - 6128 





Voici un petit programme utilitaire qui pourrait intéresser tous nos amis 
de langue et de culture arabe, mais aussi tous ceux qui souhaitent comme moi s'y initier. 


mage au premier lettré fran- 

çals qui est allé au Xème siè- 
cle renouveler notre science balbu- 
tiante en Catalogne, haut lieu de 
culture arabe à l'époque (et dans 
le Midi, c’étalent souvent les juifs, 
polyglottes de tradition, qui appre- 
nalent l'arabe aux français 1). Il faut 
savoir que Gerbert, après avoir 
contribué à mettre un prince illettré 
(comme les autres 1) sur le trône de 
France (Hugues Capet), a fait de 
son fils Robert (et de plusieurs prince 
de sa génération) un lettré accom- 
pli. Enfin c'est lui le pape de l'An 
MII. Voilà pour l'évocation. 


, e l'ai appelé Gerbert, en hom- 


Ce programme utilise le clavier 
français pour transcrire la calligra- 
phie arabe, en suivant un code re- 
présenté dans la figure 1. En l'utili- 
sant, vous découvrirez quelques si- 
gnes supplémentaires, par exemple 
les parenthèses, transformables en 
guillemets de début et de fin de ci- 
tation, en tapant COPY avant le si- 
gne parenthèse. 

Le curseur se déplace au moyen 
des 4 flèches de direction, de ESPA- 




















CE et de DEL. Attention | Il efface 
tout sur son passage | 

CLR permet de recommencer la 
page à 0. 

TAB avance le curseur au milieu 
de la page, s’il était en deça. 

On peut noter la façon d'obte- 
nir les 4 formes de chaque lettre 
arabe suivant sa place dans le mot: 

- Deux fois COPY puis la lettre si 
elle est en position isolée (1) 

- COPY puis la lettre en position 
finale (2) 

- La lettre seule si elle est en po- 
sition (3) 

- SHIFT puis la lettre en position 
Initiale (4) 

On peut aussi noter : 

- Les 4 positions du hamza et le 
moyen de les obtenir, quelques var- 
riantes calligraphiques courantes 
dans l'arabe écrit, les signes en su- 
rimpression (hamza, shadda, fatha, 
damma., kasra), l'utilisation de la 
barre de soulignement pour prolon- 
ger la ligne d'écriture dans le cours 
d'un mot si on le désire. 

Pour ceux que cela intéresse, il 
est possible de modifier l'allure des 

















(i=copyxe ,8=copy,4=shift) 
fig. 1 
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lettres, que j'ai choisies en pleins et 
en déliés, parce qu'elle passe mieux 
à l'écran et qu'on la trouve souvent 
ainsi dans la presse arabe (les titres 
notamment). Il est également possi- 
ble de modifier les datas pour obte- 
nir des caractères complémentaires. 

J'ai passé plus de 3 mois à ce 
travail, mais j'ai conscience qu'il 
peut être amélioré : le choix du 
MODE 2 donne une plus belle lislbill- 
té à l'écran, mais diminue la clarté 
à l'impression ( en tapant CONTROL 
puis COPY). 

Enfin ce programme est bilingue 
: on peut passer du français à l'ara- 
be et réciproquement en tapant 
COPY puis RETURN. Vous verrez que 
l'usage du tabulateur TAB permet, 
au choix, de placer les textes ara- 
bes à droite et français à gauche 
(le plus pratique, surtout si le texte 
est long) ou l'inverse (Vocabulaire ou 
conjugalsons et leur traduction, par 
exemple). 

Taper et sauver les fichiers 
ARABEI.PRG et ARABE2.PRG, qui 
génèrent les fichiers ARABET.BIN et 
ARABEZ2.BIN, puis taper et lancer le 
programme GERBERT. 





CRERSRCRORERERERERC 


1 [> |<|<| ol 











LE" FRNENAENERMEENENNE )LA 
15" 1 t )LF 
28 ' + ECRITURE ARABE # )LB 
25 't + )LG 
38 ' + par t )LC 
35 " t >LH 
49 " t Michel LA ROSA # )LD 
45 "+ Ci )LJ 
58" #-)55.74,26.12 t )LE 
55’ | ( )LK 
68" # Juin 1991 # DLF 
65 ?” 1 t MA 
TOO'OHARENENANENNHENT )LG 
88 ? >LH 
98 ' Préparation lsprimante )LJ 
199 ‘ RB 
119 NODE 2:MEMORY L9AE2 )RY 
129 ad=&9AE3:n1=179:RESTORE 179 )ZZ 
139 FOR a=1 TO 22:b=ÿ:FOR c=1 TO 16:READ a$ )HC 
149 POKE ad, VAL("&"+a$) :b=b+PEEK (ad) :ad=adti DL 


158 NEXT:READ e:1F eCb THEN PRINT'Erreur DATA ligne"nl HR 
END 


169 nl=nl+{f:NEXT:CALL HIMEN+1 )1J 
179 DATA 21,E1,E9,22,38,99,F7,EB, 21, 49,91, 19, 4E,23,46,7 DDD 
9,1491 
189 DATA B9,28,15,E5,69,69,19,E5, 4E, 23, 46,69,69,19,44,4 >DP 
D,1475 
199 DATA Ef,71,23,70,E1,23,18,E4,21,49,99,96,81,9E,08,1 >DY 
1,1269 
298 DATA 2F,89,CD,D7,BC,C9,C5,D5,E5,F5,3E, 99, CD, 1E,BB,2 )FD 
8,2273 


219 DATA BA,3E,17,CD, 1E, BB, 28,93, CD,59,48,F1,F1,D1,C1,C DEM 
9,1923 

229 DATA 68,60,00,80,99, 69,09, 09,09,00,00,90,99,98,98,9 DYT 
5,9 

239 DATA DD, 21,52, 89, DD, 36, 91,99, DD, 36, 92,99, DD, 36,93,9 >DP 
ÿ,1311 

248 DATA DD, 36,84, 81, DD, 36,95, 99, DD, 36,98, 99, 3E, 1B,CD,C EG 
C,1333 

258 DATA BB,D5,E5, CD, 2B, BD, SE, 41, CD, 2B, ED, 3E, 96,CD,2B,B )FZ 
D,2135 

269 DATA CD,2E, BD, 36, FB,3E, 1B, CD, 2B, BD, 3E, 4B,CD,2B,BD,3 )GY 
E, 1989 

218 DATA 49,CD,2B, BD,3E, #1, CD, 2B, BD, DD, 36, 99, 88, DD, 36,9 DEY 
6,1557 

289 DATA 88, DD,CB, 89,26, DD,5E, 91,DD,56,92,DD,6E,93,DD,6 )EX 





« 


+ ue 


ce 
ee 
re: 


LI 
AU 


6,1744 

298 DATA 84,CD,F8,BB,B7, 26, 94, DD, CB, 98, C6, DD, 34,96, DD, 7 DFR 
E,2111 

389 DATA 86,FE,97,28, 12, DD,6E, 93, DD, 66, 94, 2B, 28, DD, 75,9 DER 
3,1413 

319 DATA DD, 74,44,18,CC, 18, A9, CD, 2E, BD, 38,FB, DD, 7E,898,C DFY 
D,2961 

328 DATA 28, BD, DD, 34, 91, DD, 34, 91, 29,93, DD, 34,92, DD, 7E,9 DEM 
1,1438 

338 DATA D6, 82,29, 87, DD, 7E,92,FE, 92,28, 12,DD,6E,93,DD,6 DEC 
6,1783 

348 DATA 84,11,8C, 99, 19, DD, 75,93, DD, 74,94, 18,8C,DD,34,8 DH 
5,1182 

358 DATA SE, BA, CD, 2B, BD, 3E, 9D, CD, 2B,BD,3E, 15,CD,1F,BB,2 DFC 
6,1558 

368 DATA 8F,DD,36, #1, 99, DD, 36, 92, 99, DD, 7E,95,FE, 22,28, A DEZ 
5,14#5 

379 DATA 3E,1B,CD, 2B, BD, 3E, 49, CD, 2B,BD,Et,D1,CD,C9,RB,C DFG 
9,2317 

389 DATA 22,09,29, 89,42, 90,58, 60,09, 00,09,00,90,09,08,0 >AX 
ÿ,232 


398 )TC 
499 ' Routine de Dessin des Lettres RE 
419 ? RF 
429 MEMORY &2FFF )LW 
4309 ad-bk4799:nl=48/:RESTORE 489 )ZV 
449 FOR a=i TO 2:b=ÿ:FOR c=1 TO 16:READ a$ )GU 
859 POKE ad, VAL("&"+a$):b=b+PEEK(ad) :ad=ad+i >MA 


469 NEXT:READ e:1F e<)b THEN PRINT'Erreur DATA ligne"nl >M 
: END 

479 nl=nl+19:NEXT MY 
489 DATA ED, 5B, AD, 45,2A,QC, 45, 3A,A7,45,47,C5,D5,34, A6, 4 DEL 
5,1892 

498 DATA 4F,86,99,ED,B9,EB,E1,CD,26,BC,EB,C1,18,ED,C9,9 FD 


ÿ,2271 

599 RF 
519 " Lancenent Programne RG 
529 ? RH 
538 INK 8,13:INK 1,8:BORDER 19 )XE 
549 LOAD'"arabe{.bin",&38#9:LOAD'"arabe2.bin", &3A19 )ZB 
559 ecr=49232:lign=1 >PY 
568 ecr-ecr-1:G0SUB 1158 )TU 
579 * Dessin du Curseur )TC 
589 POKE &45A6,1:POKE &45A7,16 DIT 
599 POKE &459C,8:POKE &459D, 52 >XD 


689 POKE &45AD,ecr-256#INT(ecr/256) :POKE k45A1, INT(ecr/ DEA 





: D ra ytaui 
ES eh pi pie néinnunl | ® À UE 
[ETAT LE Le DR s z 


256) 

619 CALL 44789 HJ 
628 a$=INKEYS:IF a$="* THEN 629 )XY 
638 * Effacesent du Curseur >RK 
649 POKE &459C, 16 LM 


659 POKE &4SA,ecr-256#INT(ecr/256) :POKE k45A1, INT(ecr/ DEF 
256) 

669 CALL 44788 )JD 
678 a=ASC(a$):e=ecr-49972:x=(e MOD 89)+8+7:y=414-INT(e/ )FP 
88)*16 

689 IF a=9 THEN IF ecr)49928+1ignt168 THEN ecr:49ÿ28+]1i DEC 
gnx169:G0T0 588 ELSE a=13 

699 IF a=13 THEN IF f1=8 THEN lign=lignti:ecr=49972+lig )EY 
n*169:G0T0 1998 ELSE 1289 


798 IF a=16 THEN CLS:GOTO 559 WA 
718 IF a=32 THEN 1999 )NK 
729 IF a=34 THEN PLOT x,y:GOSUB 12#8:G0T0 588 MK 
739 IF a34 AND a(48 THEN IF f19 THEN a=a+32 )JN 


748 IF a=69 THEN IF f1=9 THEN PLOT x+5,y-2:G0SUB 1229:G )QG 
OTO 589 ELSE 889 

759 IF a=62 THEN IF f1=8 THEN PLOT x,y-38:GOSUB 1238:G0 >PW 
TO 589 ELSE 889 

768 IF a=64 AND f1=9 THEN PLOT x+6,y:GOSUB 1219:G0T0 58 >YV 
ÿ 

778 IF a=92 AND f1=9 THEN PLOT x+6,y-24:G0SUB 1219:G0T0 CE 
589 

788 IF a=94 THEN PLOT x,y-2:G0SUB 1239:1F f1=Q THEN 589 )DG 
ELSE GOSUB 1249:G0T0 1999 


798 1F a=127 THEN ecr=ecr+2:G0SUB 1159:G0T0 56 >PF 
889 IF a=224 THEN f1=f1+1:G0T0 629 )AX 
819 IF a<249 THEN 889 NA 
829 a=atfl+4 )BC 
839 IF a=249 AND ecr>49231 THEN ecr:ecr-159:lign=lign-1 )KP 
:GOTO 564 

849 IF a=241 AND ecr<(59912 THEN ecr=ecr+{61:l1ign=lignti KA 
:GOTO 568 

859 IF a=242 THEN 569 NC 
869 IF a=243 THEN ecr=ecr+2:GOSUB 1159:G0T0 568 )PC 
879 GOTO 929 )AC 
889 IF f1=1 THEN IF a)96 THEN a=a-96 ELSE a=a+128 )PL 
899 IF fl>1 THEN a=a+64 )QU 
998 IF a=199 THEN PLOT x+6,y-6:GOSUB 1219:G0T0 199$ UD 
919 * Dessin du Caractère )TA 
929 RESTORE 1949:buf=12288 UP 
938 FOR i=1 TO a-1:READ lar:buf=buf+lar*16:NEXT:READ 1g DWK 
IF 1g=9 THEN 589 

948 POKE &45AG, 1g )LH 
959 ecr=ecr-1g+1:GOSUB 1158:IF ecr=49971+lign#164 THEN )NG 
ecr=ecr-Îg 

969 POKE &459C, buf-256*INT(buf/256) :POKE k459D, INT(buf/ >FK 
256) 

979 POKE &45Aÿ,ecr-256*INT(ecr/256) :POKE k45A1, INT(ecr/ DEL 
258) 

989 CALL &4789 )JJ 
999 IF a=7 OR a=9 OR a=19 OR a=15 OR a=24 OR a=167 OR a >WQ 
=169 OR a=178 OR a=175 OR a=184 THEN PLOT x,y-39:DRANR 

+7,9 

1898 f1=9:G0T0 56 >HC 
1919 ? )XE 











19828 ‘ Largeur des Lettres à dessiner )XF 
1839 ? KG 
194ÿ DATA 1,9,3,2,3,3,2,2,2,2,3,2,2,2,2,3,2,2,3,3,2,2,2 DRJ 
,2,2,2,3,8,2,8,1,1 
1859 DATA 1,8,2,2,1,2,1,2,2,1,2,1,2,1,2,2,2,2,2,2,2,2,2 DRQ 
,2,2,1,1,9,2,9,2,8 
1968 DATA 1,1,2,2,2,1,2,2,2,2,2,1,2,1,2,1,1,2,2,1,2,2,2 RQ 
,2,1,2,1,9,2,8,1,8 
1978 DATA 1,1,2,2,2,2,2,2,2,2,2,1,2,1,2,1,2,2,2,1,2,2,2 DRK 
,2,1,2,2,1,2,8,9,2 
1989 DATA 9,9,9,9,8,0,9,9,0,9,0,8,9,0,0,9,0,0,9,9,9,9,9 >QC 
,2,9,9,0,2,6,8,0,0 
1998 DATA 1,3,3,2,3,3,2,2,2,2,2,2,2,2,2,3,2,2,3,3,2,2,2 DRQ 
,2,2,2,3,1,2,1,9,2 
1199 DATA 9,8,2,2,8,0,9,2,2,1,0,8,9,0,2,9,0,0,0,0,9,9,8 >QH 
,8,9,8,1,2,0,9,0,0 
1119 DATA 9,8,0,9,8,9,9,0,0,9,0,8,9,9,0,9,9,0,8,2,2,2,2 DNW 


2, 2,2,2,8,8,8,8 

1128 KG 
1139 ? Dessins de Caractères en surimpression >XH 
1149 )XJ 


1159 IF ecr(48992+1ignx169 THEN lign=ligntitecr=49871+t1 )JZ 
ign#168 

1168 IF ecr)49971+1ignx169 THEN lign=lign-1:ecr=48992+1 )JE 
ignx16 

1179 IF lign:1 AND ecr)>49231 THEN PRINT CHR$(7):G0TO 55 )ZP 
ÿ 

1189 IF ecr)59992 OR lign>12 THEN ecr=59912:PRINT CHR$( DMJ 
7):GO0T0 588 


1198 RETURN )FE 
1299 DRAWR +1,9:FOR i=1 TO 2:DRAUR 9,-2:DRAUR +3,9:DRAW NE 
R @,+2:DRAUR +1,9:NEXT:RETURN 
1219 DRAUR -2,8:DRAUR 9,-4:DRAUR -1,8:DRAWR +3,S:RETURN )AU 
1228 UKAWx -2,9:DRAWR 9,+2:DRAWR +3,D9:DRAWUR 9,-4:DRAWR DUQ 
-1,8:DRAUR 9,-2:DRAUR -4,8:RETURN 
1239 DRAWR +7,+2:RETURN TR 
1249 DRAUR 8,-4:DRAWR -7,-2:RETURN )CC 
1258 )YA 
1269 * Retour aux Caractères Clavier )YB 
1279 )YC 
1289 x=1:y=INT((ecr-49972)/89) YU 
1298 LOCATE x,y:PRINT CHR$(148) )2V 
1399 a$=INKEYS:IF a$="" THEN 1399 )YB 
1318 a=ASC(a$):LOCATE x,y:PRINT CHR$(32) HC 
1329 IF a=9 THEN IF x<42 THEN x=42:GOT0 1299 ELSE x=1:y >PG 
=y+1:G0TO 1299 
1338 IF a=13 THEN IF f1:8 THEN x=1:y=y+1:G0T0 1299 ELSE )BL 
1999 
1349 IF a=16 THEN CLS:x:1:y=1:G0T0 1288 FX 
1359 IF a:224 THEN fl=f1+1:G0T0 1389 )CC 
1369 IF a=248 AND y>1 THEN y=y-1:G0T0 1299 )HQ 
1378 IF a=241 AND y<4ÿ THEN y=y+1:G0T0 1299 )JD 
1388 IF a=242 OR a=127 THEN 1429 )XB 
1399 IF a=243 OR a=32 THEN 1419 WW 
1498 IF aC248 THEN LOCATE x,y:PRINT CHR$(a) XKG 
1419 IF x<88 THEN x=x+1:G0T0 1439 ELSE x=1:y=y+1:G0T0 1 DBT 
430 
1428 IF x>1 THEN x=x-1 ELSE x=89:y=y-1 DEV 
1439 f1=9:G0T0 1299 )NA 
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. TRS DE: 
2h pt, pt omtmmunt LS Ltl 


ON LLELIEILEITEELEZ LE 

7 + + 
39 " + ECRITURE ARABE f 

2: L 

DE LELEENEEÉEETTELE 
68 ? 
79 MODE 2:ad=k399ÿ:nl=119 
75 FOR a=f TO 161:b=9:FOR c=1 TO 16:READ a$ 
84 POKE ad, VAL("&"+a$):b=b+PEEK (ad) :ad=adti 
85 NEXT:READ e:1F eOb THEN 95 
98 nl=nl+{8:NEXT:SAVE"arabei.bin",b,&3999, &A19:CLS : END 
95 CLS:PRINT"ligne"nl;" incorrecte" :END 
199 ? 
195 ? LETTRES ARABES (ère partie) 
119 DATA 99,09,99,16,18,18,18,18,18,1F,97,09, 00,09, 09,99,182 
129 DATA 69,00,00,89,09,09,09,00,990,00,00,00,00,00,90,09,9 
139 DATA 99,00,49,00,09,C8,90,08,F0,98,8C,FF,FF,FF,3F,FF,1591 
149 DATA F3,60,00, 09,09, 09,09, 09, 18,99,90,00,00,00,99,99,267 
159 DATA 99,09,09,06,09,00,00,00,00,08,00,689,90,92,29,09,162 
169 DATA 69,80,09,00,09,09,00,00,99,39,CC, 99, 1F,FF,49,9F,617 
179 DATA 33,C9,9C,99,E9, 30,00, 7F,F8,08,1F,E0, 00,99, 09,99,1169 
189 DATA 69,60,09,00,09,00,09,06,00,00,90, 18,99, 18,99,9C,69 
199 DATA 99,80C,0F,FF,9F,F3,99,09,00,00,00,00,00,09,09,99,549 
295 DATA 99,90,09,09,09,00,09,06,09,00,90,16,99,08,99,00,24 
219 DATA 96, 00,99, 90, 1E,09,90,37,09,39,C7,88,1F,FF,49,9F,607 
228 DATA FF,C9, 80, 89,E9, 3C, 49, 7F,F6,99, 1F,E0,99,09,90,98,1592 
238 DATA 99,00,99,00,06,00,00,00,00,00,00,C9,00,99, 00,98, 192 
249 DATA 09,89,49,09,76,C9,99,CC,F9,90,EC,FF,FF,FF,3F,FF,2139 
25 DATA DF, 99,99, 90,00,00,00,00,00,00,00,09,00,09, 00,08, 223 
269 DATA 66,60,99, 00,09, 00,03,00,09,00,99,09,97,E8,06,69,336 
278 DATA 93,C0,1E,7F,78,1F,C0,09,E8,09,F8,08,7F,C9,0F,FF,1748 
268 DATA 89,06,00, 09,00, 09,00,00,00,00,00,18,99,F8,93,98, 427 
294 DATA DE, 3C,9F,FF,93,E7, 09, 09,00,00,90,00,00,09,00,00,578 
389 DATA 99,80,09,90,00,00,09,00,09,00,00,09,7F,E8,93,FE,608 
319 DATA 9F,98,7C,1F,E8,07,C0,08,E6,08,F8,09,7F,C9,0F,FF, 1896 
328 DATA 99,90,00,90,00,00,090,090,00,00,98,09,7F,E0,93,FE,608 
339 DATA 9F,98,7C,1F,E8,07,C9,C8,E0,09,F8,99,7F,C9,1F,FF, 2914 
348 DATA 99,90,00,09,00,00,09,00,00,00,90,0C,90,09,9C,98,24 
358 DATA 1C,8C,49,19,9C,C8,30C,0C,F#,99,8C,FF,FF,FF,3F,FF,1731 
368 DATA F3,00,00, 00,09, 09,09, 00,00, 00,00,00,00,00,00,98,243 
379 DATA 99,00,09,00,00,00,00,06,00,06, 00,96, 00,96, 09, 06,39 
369 DATA 89,86,90,97,29,07,69,06, 70,1E,3F,FC,9F,F0,98,98, 866 
399 DATA 90,00,09,00,06,00,00,09,00,09,00,00,00,80,91,F9,241 
495 DATA 93,30, 1F,FF,3F,F3,39, 09,30, 00,39, 09,30, 99,39, 98,895 
419 DATA 90,00,00,06,90,90,00,09,00,00,01,60,00,09, 09,09, 129 
428 DATA 88,18,99,8F,29,07,69,96, 19, 1E,3F,FC,9F,F0,00,08,892 
438 DATA 09,69,00,00,00,08,00,09,00,00,00,00,97,E9,06,69, 333 
448 DATA 93,C8,1E,7F,79,1F,C9,09,E9,09,F8,99,7F,C0,89F,FF,1748 
459 DATA 99,90,99,09,00,00,00,00,09,00,08,00, 00, 22,09, 99,42 
468 DATA 99,88,40,90,99,C9,99,99,F0,00,0C,FF,FF,FF,SF,FF, 1591 
478 DATA F3, 99,00, 00,00, 09,00,09,00,09,00,09, 09, 99, 00,09, 243 
489 DATA 69,80,90, 00,09, 09,01,98,99,00,09,90,96,38,98,6C, 317 
499 DATA 99, 7C,49,3F,CD,0F,ED, 3C,7F,F8,1F,E9, 09, 09, 00,99, 1372 
599 DATA 99,80,09,89,09,00,00,00,00,09,09,00,90,08,90,90,9 
519 DATA 99,18,99,0F,00,0F,99,36,93F,F8,8F,C9,09,00,00,99,628 
528 DATA 98,99,09,99,09,00,09,00,09,00,99,00,90,00,09,00,9 
534 DATA 09,00,09,00,09,00,90,08,08,38,CC,08,1F,FF,49,9F,617 
549 DATA 33,C9,90C,89,E8,3C, 99, 7F,F8, 09, 1F,E0,90,00,98,00, 1169 
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559 DATA 99,00,09,00,99,09,05,08,90,00,66,09,00,99, 09,99, 192 
568 DATA 99,80,49,09,09,C9,090,09,F9,90,0C,FF,FF,FF,3F,FF, 1591 
578 DATA F3, 00,08,00,99,00,00,00,00,09,00,00,00,60, 09,09, 243 
589 DATA 09,89,99,99,09,09, 18,99, 18,99, 18,99, 18, 78,19,CE,447 
599 DATA 1F,QE,FF,FF,FF,FF,09,00, 90,00, 90,00, 00,09, 09,99, 1965 
698 DATA 99,89,00,00,09, 00,09, 30,00, 00,99, 16,98, 18,90, 0C, 198 
618 DATA 99,0C,9F,FF,9F,F3,00,09,00,00,00,00,00,00,00,99,549 
629 DATA 09,90,90,00,00,09, 00,00, 00, 00,00, 00,00, 00,99,38,56 
634 DATA 99,60C,99, 7F,09,0F,99,38,3F,F0,0F,C9, 00,00, 60,09, 816 
649 DATA 89,60,99,00,09,09,03,09,09,00,99,08,7F,E9,93,FE,611 
659 DATA 9F,96,7C,1F,E9,97,C9,08,E0,09,F6,99,7F,C9,0F,FF, 1896 
669 DATA 99,80,99,00,00,00,00,00,00,00,00,00,08,00,00, 00,0 
679 DATA 99,99,19,7F,71,F1,F8,FC,FE, 1E, 3F,F6, 00, 49, 06,69, 1694 
685 DATA 69,00,00,99,09,69,090,00,09,00,09,39,08,08,00,00,48 
698 DATA 99,16,99,0F,09,0F,99,38,9F,F9,0F,C9, 69,00, 00,09,628 
799 DATA 09,60,09,00,09,00,00,00,00,00,00,09,08,089,00,00,9 
719 DATA 69,00,00,00,1E,09,00,37,90,39,C7,09,1F,FF,49,9F,607 
729 DATA FF,C8,9D,89,E9,3C,99,7F,F6, 09, 1F,E0,90,00,90, 00, 1502 
734 DATA 99,00,09,08,00, 00, 16,68, 16,99,18,49,18, 78,19,CE,543 
749 DATA 1F,BE,FF,FF,FF,FF, 99, 00,09, 00,00,00,00,00,09, 08, 1965 
759 DATA 99,00,00,00,00,006,90,FF,FF,FF,FF,00,69,00,00,09,1928 
768 DATA 69,80,00,00,90,09,09, 00,00, 00,00, 00,00,00,90,09,0 
779 DATA 98,09,99,3C,3C, 3C, 3C, 18, 18, 99, 3C, 3C, 09,99, 09,99, 498 
768 DATA 59,80,09,00,03, 00,03, 00,03,06,93, 98, 7F,00,07,E8, 379 
799 DATA 81,FE,FF,689,F0,09,90,00,00,00,00,00,00,00,09,09,878 
890 DATA 69,80,90,8C,99, 00,09, 30,00, D6,9F,0C, 7F,00,97,E0,661 
819 DATA 81,FE,FF,89,F,00,00,00,00,09,00,00,00,09,00,09,678 
825 DATA 09,80,00,80,00,06,09,99,18,FB,DF, 1C, 18,18,989,99,574 
838 DATA 69,00,00,00,09,00,90,09,90,00,00,99,90,1E,99,77,149 
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858 DATA 99,00,090,00,09,00,00,08,1C, 19,30, 89,00,00,69,09,104 
869 DATA 09,69,99,60,00,00,09,F9,03,C9,97,69,0F,00,0F,00,609 
878 DATA 97,89,93,C8,99,F6,00,00,00,00,00,00,00,00,00,80,578 
889 DATA 89,69,99,89,09,09,0F,99,93,C9,91,E0,99,F0,08,FA,915 
898 DATA 91,E9,93,C9,0F,00,90,00,00,09,00,09,90,09,69,09,435 
999 DATA 09,89,99,18,18,18,18,18, 18,FC,CE, 99,99, 90,98,08,692 
919 DATA 69,09,909,00,00,00,06,00,00,00,00,09,93,C9,83,C9, 399 
928 DATA 3F,FC,43,C9,93,C9,09, 09,09, 00,00,00,99,00,96,00, 705 
938 DATA 69,00,00,00,99,00,06,00,96, 1E, 76, 76,60,09,00,09,278 
948 DATA 09,89,00,00,09,09,09,09,90,00,09,00,08,08,98,00,0 
958 DATA SF, FC,99,00,06,00,00,08,00,09,60,00,00,00,00,89,315 
968 DATA 69,89,09,90,00,00,09,090,09,09, 78, 78,08,08,06, 00,249 
979 DATA 99,00,09,00,99,69,90,60,09,69,99,60,09,60,01,F9,721 
989 DATA 93,3C,1F,FC,3F,F4, 39, 00, 39,00, 30,00, 38, 00, 30, 09, 889 
998 DATA 69, 00,99,00,09,90,00,00,00, 09,00, 90,93,C9,83,C9, 398 
1888 DATA 99,09,99,00,90, 00,08, 00,00,00,99,00,90,90,00,00,9 
1919 DATA 99,08,96,00,08,00,07,99,07,00,03,69,01,69,91,C8,467 
1929 DATA 99,C9,09,E9,99,60,98, 08,98, 09,99,00,00,90,80,99,512 
1939 DATA 96,08,09,09,00,09,16,16,6F,F0,97,E9,93,99,91,89,666 
1949 DATA 99,C9,99,69,99, 68,98, 09,99, 09,90,00,00,00,09,99, 364 
1959 DATA 95,08,00,09,09,99,18,CC,8F,BC,97,98,93,99,91,89, 722 
1969 DATA 99,C9,09,69,00,60,08,00,08,00,96,00,00, 90,09, 09,384 
1979 DATA 99,00,60,09,99,09,09,70,01,C9,07,99,93,F6,90,E8, 779 
1888 DATA 93,89,9F,F6,97,F6,98,09,00,09,69,00,90,09,06, 99,649 
1998 DATA 99,09,90,09,00,09,09,99,97,E9, 9C,F9,18,38,1C, 18,615 
1199 DATA 9F,30,97,E0,00,00,98,00,00,00,90,900,90, 09,09, 99, 294 
1119 DATA 96,99,00,09,00,99, 18,69,0F,E9,97,E0, 09,69, 90,68, 782 
1128 DATA 99,30, 09,30,09, 16,98,00,08,90,90,00, 66,00, 09, 90,129 
1139 DATA 99,99,09,00,00,00, 60,99, 79,06, 38, 0C, 1C, 18,9E, 39, 388 
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1149 DATA 97,69,43,C0,91,60,08,00,08, 09,00, 00,60, 00, 80,00, 427 
1159 DATA 99,08,99,00,09,00,00,00,61,89,03,C9,06, ES, OC, 78,678 
1169 DATA 18,38, 39, 1C,68,0E,08,09,08, 09,08,09,60, 09, 80, 09, 266 
1179 DATA 96,00,06,08,80,09,97,C9,0C, CA,0F,E8,07,E0, 00, 39,921 
1189 DATA 09,39,09,18,98, 18,08,00,08, 09,08, 00,90, 09, 89,09, 96 
1199 DATA 99,08,00,09,00,00,3C, 3C, 09,09, 3, 3C, 09,99, 00, 98, 249 
1299 DATA 90,09,00,08,08, tE, 78, 78,08, 80, 78, 78,98, 09, 89,00,518 
1219 DATA 99,08,00,00,00,09, 89,09, 09,09, 00,09, 3F, FC, 09,99, 315 
1229 DATA 99,09,3F, FC, 00, 90,08,00,08,09,09,00,00, 09, 90,09,315 
1238 DATA 99,08,99,09,96,00,87,E0, 10, 78, 1E, 38,0F,99,07,88,615 
1249 DATA 91,89, 09, 88,93, CA,93,CO,08,08,09,00,09, 80,99, 00,647 
1259 DATA 98,09,09, 19,18, 18,18, 18,18, 19, 10,09, 00,90,00,09, 168 
1269 DATA 09,09,90,09,08,00,99,18,18,F8,E0, 00,89, 18,40,99,544 
1270 DATA 99,09,90,00, 89,00, #9, Gb, 02, 29, 09,09, 09,90, 00, AC, 174 
1289 DATA 39,CC,FF, FC, CF, 38,98, 09,08,90,00,00,90,00,09,09,1914 
1296 DATA 99,08, 09,09, 09, 00, 00,09, 00,00,00,09,01, C9, 00, 78,313 
1389 DATA 99, 0C,0F, FC, 9F,FO,08,00,08, 00,99, 00,90, 00,80, 09,534 
1319 DATA 99,08,99,09,09,00,09, 18,09,00,09,09,09, 1E, 00, 77, 173 
1329 DATA 39,07,FF,FF,CF, FC, 93, 09,08, 09,00,00,90, 00,80, 09,1219 
1338 DATA 99,09,96,60,99,08, 8€, 1B, 1F,FE, FC, 09,09, 99,00,09,674 
1349 DATA 09,09,09,0P,08,00,01,89,08,09,00,00,97, 69, 4C, 09, 276 
1359 DATA 0F,F8,FF, 00, F0, 00,00,00,09,49,09,09,09,05,00,08, 759 
1369 DATA 49,09,09,08,09,00,08,00,08,49,08,90,0F, 89,19, FO, 498 
1379 DATA 3F,9C,FF,FC,F1,F6, 99,00, 09,00, 09,00,09,00,00,08,1215 
1389 DATA 99,09,00,09,98,00,08,09,08,99,08,00,7F, 09,07, E0, 358 
1399 DATA 91,FE,FF, 69, F0, 09, 09,09, 00,00, 09,09,00,00,00,09, 878 
1489 DATA 09,09,99,09,09,00,99,00,08, 09, 69,00,7F, 09,87, E0, 358 
1419 DATA 91,FE,FF,69,F4,09, 80,00,09, 06,00, C0,09,06,09,09, 1970 
1429 DATA 09,09,09,08,98,3F,93,EB,3E, 09, F8, 00, 3C, 99, 87, 80, 787 
1439 DATA 99,C8,FF,69,FE, 00, 99,00, 09,09, 09,09, 00,05, 00,98, 829 
1449 DATA 99,09,98,1C,18,18,18,18,18,F8,E8, 9,08, 09,09, 0,629 
1459 DATA 90,08, 00,00, 00,00, 00,09, 00,90,09,09,08,09,01,F8, 241 
1469 DATA 97,98,FF,F8,F9,E0,08,00,08,00,08,00,90, 90, 90,09,1135 
1479 DATA 09,09,96, 18,09,09, 80,18, 18,F8,E0,09,00,00,09,90, 544 
1488 DATA 09,00,00,00,06,00,00,00,08,09,69,00,87, 89, 4C, 09, 147 
1499 DATA 9F,F4,FF,00,F0,00, 00,00, 09,09, 09,09, 00,09, 00,99, 750 
1569 DATA 49,09,09, 26,68, 00,08,18,18,F6,E8, 00,98, 09,90, 09,688 
1519 DATA 49,09,00,CC,99,00,0E, 18, 1F,FE, FC, 09,09, 90,00, 08, 782 
1529 DATA 09,00,00,06,99,00,98,00,08,00,08,00,69, 89,90, 18, 24 
1539 DATA 69, 0C, 89, 0C, 99,38, 3F, F4, 0F, C9, 00,00, 00,00, 08,99, 599 
1549 DATA 09,09,09,00,09,00,08,09,08,00,09,00,09, 90,99, AC, 12 
1558 DATA 39,CC,FF, FC, CF, 34, 90,09, 09,09, 09, 00,09,09, 00,99, 1914 
1568 DATA 09,90,09,CC,09,08,09,18,16,F8,E0,08,9,90,00,80, 724 
1578 DATA 99,09,00,00, 00,00, 18,00, 18,99, 18,09, 18, 78, 19, CE, 447 
1589 DATA 1F,0E,FF,FC,FF,F,99,09,08,90,00,08,00, 00,00, 09, 1947 
1599 DATA 49,09,00,09,80,09, 93,00, 09,00, 00,09,01,C9, 08, 78,316 
1608 DATA 99, 0C,0F,FC,0F,FO,08,09,09,00,00,60,99, 00,00, 90,534 
1619 DATA 09,09,00,09, 00,00, 09,09, 00,09, 09,09,99,38,08,60, 164 
1629 DATA 99, 7C, 09, 0C, 99,38, 3F,FO,0F, CA,98, 00,08, 00,00, 90, 702 
1639 DATA 99,00,90,00,09,00,03,00,09,00,00,00,7F,06,07,E8, 361 
1649 DATA 91,FE,FF,89,F9,09,09,00,09,00,09,00,00, 00,00, 80, B78 
1658 DATA 99,08,80,00,89,00, 89, 18, 18,F8, E9, 09,09, CC, 08, 99, 724 
1669 DATA 99,09,99,08,09,00,08, 30,08,09,98, 00,98, 09,99, 18, 72 
1679 DATA 99, 0C, 00, 0C, 89, 38, 3F, F0, 0F, C9, 09, 09,00, 99,08, 99,599 
1689 DATA 99,00,09,00,00,08,09,08,08,FC,F6, 00,89, 18,80, 40,524 
1699 DATA 99,09,80,09, 00,00, 18,69, 18,09, 18,09, 18, 78, 19, CE, 543 
1769 DATA 1F,0E,FF,FC,FF,F8,09,00,08,00,09,08,89,80,00,09, 1947 
1719 DATA 99,08,80,09,00,00,06,00,09,FF,FF,09,00,00,08,09,519 
1729 DATA 09,00,09,06,00,08,09,08,88,FF,FF, 09,60, 90, 00,00,519 
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79 MODE 2:ad=&3A19:n1=119 

75 FOR a=1 TO 151:b=9:FOR c=1 TO 16:READ a$ 

88 POKE ad, VAL("&"+a$):b=b+PEEK (ad) :ad=adt{ 

85 NEXT:READ e:1F eCb THEN 95 

98 nl=nl+18:NEXT:SAVE"arabe2.bin",b,&3A18, k979:CLS :END 

95 CLS:PRINT"ligne"nl;" incorrecte":END 

188 ? 

195 ? LETTRES ARABES (2de partie) 

119 DATA 96, 00,99, 18,18, 18,18, 18, 18,1F, 97,00, 00,00, 09,89, 182 
129 DATA 99,80,00,89,09,00,09,99,18,FF,E7,09,06,18,00,09,534 
139 DATA 99, 00,00,00,00,08,09,68, 92, 20,60, 00, 90,09, 00, 09, 162 
149 DATA 389,CC,FF,FF,CF,33,99,00,09,09,09,00,00,00,00,09, 1929 
158 DATA 96,00,09,00,00,00,00,00,00,09, 06, 18, 69, 18,89, 4C,69 
169 DATA 99,8C,9F,FF,0F,F3,09,00,09,00,09,00,06,00,06,09,540 
179 DATA 99, 09,00, 00,00, 00,99, 18,99,00,99, 00,60, 1E, 09, 77,173 
189 DATA 38,C7,FF,FF,CF,FF,93,99,09,00,09,00,00,09,00,09, 1222 
199 DATA 99, 00,06, 00,09,00,06,09, 00,09, 06, 00,93, C9, 06,69, 393 
299 DATA 97,68,FF,FF,FE, FF, 09, 09,00,00,09,09,08,00,90,09, 1122 
218 DATA 09,00,09,00,09,00,93,09,90,09,00,09,07,E9, 06,69, 336 
229 DATA 93,C9,FE,7F,F8,1F,99, 00,00,00,00,00,08,00,00,99,855 
238 DATA 99,00,00,00,99,00,05,00,90,00,00,00,01,E0, 03, 39, 276 
249 DATA 87,69,FF,CF,FF, 7F,93,39,01,E0,09, 00,99, 00,90, 08, 1223 
258 DATA 99,60,08,00,00,00,00,00,06,00,85,09,7F,09,07,E0,358 
269 DATA 91,FE,FF,98,F9,9F, 99,09, 90,09,09,00,09,00,98,09,917 
278 DATA 99,00,09,00,00,00,00,00,96,09,00,09,7F,00,07,E9,358 
289 DATA B1,FE,FF,98,F9,9F, 99,99, 09,09,99,C0,99, 08,90, 99,1199 
299 DATA 99,60,99,00,99,3C,93,E8,3E,09,F0, 09, 3C, 09, 87,84, 784 
399 DATA 88,F0,FF,9F,FE, 97, 09,09,09,00,09,00,99,08,08,08,915 
319 DATA 99,09,99,18,18,18,18,18,18,FF,F1,09,00,00,00,09,649 
325 DATA 09,90,99,09,00,09,09,09,09,00,09,09,99,08,93,C8,195 
339 DATA 9E, 79,FF,FF,F3,CF, 09,00, 00,00,00, 00, 00,09, 00,09, 1966 
349 DATA 69,80,99,89,00, 16,09, 99, 18,FF,E7,09,99,09,90,98,534 
358 DATA 99,00,09,00,00,00,90,00,99,00,90, 00,07, E0, 86,69, 333 
369 DATA 93,C8,FE, 7F,F8,1F, 99,90, 09,00,09, 00,09 ,08,90,09,855 
379 DATA 99,00,00,19,44,09,90,08,18,FF,E7,09,00,09,09,09,594 
389 DATA 89,99,00,90,09,09,0C,C9,09,00,09,00,93,C9,96,68,501 
399 DATA 97,69,FF,FF,FE,FF,00,90,09,00,00, 00,00, 90,00,99,1122 
499 DATA 88,90,99,99,90,09,00,09,09,00,09,90,09,00,98,90,9 
418 DATA 99,18,99,9F,09,0F, 96,36, 3F,F0,8F,C4, 89,09, 89,09, 629 
429 DATA 09,90,90,00,99,00,00,00,00,00,09,09,09,00,90,60,9 
439 DATA 39,CC,FF,FF,CF,33,96,99,95, 09,99, 09, 00,09, 09,00, 1929 
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449 DATA 69,99,99,66,49,09,09,09,18,FF,E7,99,09,09,09,00,612 
458 DATA 99,00,00,00,09,06,18,09,18,09,18, 99,18, 78,19,CE, 447 
469 DATA 1F,BE,FF,FF,FF,FF, 09, 00,09,00,00,00,08,09,00,00, 1965 
479 DATA 69,00,99,00,09,09,00,30,09,09,99,18, 99,18, 09, QC, 198 
468 DATA 89,8C,8F,FF,8F,F3,09,00,09,00,00, 00,99, 90,00,90,549 
498 DATA 99,00,069,00,09,09,00,00,00,00,00,89,00,09,09,38,56 
588 DATA 99,6C,49,7F,49,0F,99,38,3F,F9,9F,C8,99,00,90,09,816 
519 DATA 99,00,90,00,990,00,03,00,00,00,00,09,7F,00,97,E9, 361 
528 DATA 81,FE,FF,98,F9,0F,09,09,00,00,96,00,08,09,00,99,917 
539 DATA 96,00,90,00,98,006,06,08,18,FF,E7,09, 99,66, 99,99, 612 
548 DATA 69,60,00,00,90,09,09,09,00,00,90, 30,96, 00, 00, 00,48 
558 DATA 69, 18,99,0F,99,0F,99,38,3F,F4,9F,C9, 00,00, 09,09, 629 
568 DATA 99,60,00,90,00,00,00,00,09,00,00,98,98,1E,90,77,149 
574 DATA 39,C7,FF,FF,CF,FF,03,00,00,09,09,00,60,99,00,99, 1222 
588 DATA 83,7E,C9,19,18,18, 18,18, 18,19, 19,99,90,98,00, 08,489 
594 DATA 99,00,00,99,90,08, 18,68, 18,99,18,08,18, 78,19,CE,543 
698 DATA 1F,BE,FF,FF,FF,FF,09,09,09,00,00,00,08,08,00, 00, 1965 
619 DATA 99,00,00,00,00,00,93,38,00,00,00,09,03,F0,06,F9, 524 
628 DATA 9E,938,87,F9,403,E9,00,09,00,906,99,00,00,08,00,09,544 
638 DATA 99,00,00,060,06,00,00,06,00,09,09,00,00,0E, 69, 78,134 
649 DATA 19,C9,79,F0,FB,FC,FE, 1E,9F,F6, 99, 00,06,00,08,09, 1655 
659 DATA 99,00,90,19,18,18,16,18,18,19,19,09,00,00,09,99, 168 
669 DATA 60,89,09,09,89,00,09,00,00,00,09,00,06,00,00,08,0 
679 DATA 99,00,49,00,60,C0,98,4C,F6,00,8C,FF,FF,FC,3F,FF, 1699 
688 DATA F9,89,09,00,09,090,99,00,18,00,00,00,90,09,90,00,264 
699 DATA 99,00,00,00,00,00,00,00,00,09,09,80, 99,03, 29,09, 163 
790 DATA 90,00,99,90,09,00,99,9C,99,30,CC, 6, 1F,FC,49,9F,626 
118 DATA 38,C9,9C,99,E8,3C, 99, 7F,F6,09,1F,E0,00,09,00,99,1166 
129 DATA 90,60,08,80,09,00, 00, 00,09,09,00,09,91,C9,99,78,313 
738 DATA 99,86C,9F,FC,9F,F0,90,09,00,00,00,00,00,09,00,99,534 
749 DATA 99,00,09,90,00,09,00,00,00,00,00,18,90,90,00,00,24 
758 DATA 99,00,90,00,1E,00,00,77,00,30,C7,08,1F,FF,49,0F, 761 
769 DATA FC, C9, 8D, 89,E8,3C, 99, 7F,F6, 09, 1F,E0,99,98,00,00, 1499 
178 DATA 99,00,00,90,00,00,00,09,00,00,00,60,09,09,00,99,96 
789 DATA 99,8E,49,00,1B,C9,09,1F,F0,00,0F,FF,FF,FE,3F,FF, 1665 
799 DATA FC, 99,00,00,09,00,00,00,00,09,00,09,00,00, 09,99, 252 
899 DATA 09,00,00,89, 09,00, 18,00,09,00,09,00,78,08,C9,09, 336 
819 DATA FF,09,38,09,69,09,C0,09,E0,00,F8,09,7F,C9,BF,FF, 1669 
829 DATA 69,90,09,99,00,00,090,09,00,00,06,90,93,E8,06,F0,473 
839 DATA JE, 38,97,F8,93,E0,09,00,00,00,00,09,09,09,00,09,544 
849 DATA 89,90,09,80,99,00,09,00,090,00,09,99,3F,E0,93,FE,544 
859 DATA 9F,89,7C,09,E0,09,C0,09,F9,99,F8,09,7F,C9,8F,FF,1744 
868 DATA 90,90,00,99,09,00,09,90,09,90,09,99,3F,E9,93,FE, 544 
879 DATA 9F,689,7C,99,E5,09,C5,C8,E0,09,F6,89,7F,C9,8F,FF, 1936 
888 DATA 99,99,00,89,99,99,99,0C, 99,90, 1C,8C, 19,9C, 3C,8C, 164 
699 DATA 99,9C,FF,FC,FF,F0,99,09,00,00,09,00,00,09,00,99,1914 
988 DATA 00,60,09,99,09,00,09, 06, 99,06, 99, 96, 99,96, 29,96, 62 
919 DATA 69,96, 79,1E,3F,FC,9F,F9,90,00,00,00,90,00,09,99,614 
929 DATA 69,80,09,00,00,00,09,00,09,00,49,00,99,98,91,F9,241 
939 DATA 93,3C,1F,FC, 7F,F0, 30,09, 30, 09, 30,09, 30,00, 39,99,953 
948 DATA 99,60,09,09,09,090,01,89,09,00,99,09,90,18,98,0C, 165 
959 DATA 29, 96,69, 96, 79,1E,93F,FC,8F,F6,99,00,00,09, 09,99, 852 
968 DATA 98,99,90,09,00,00,00,09,00,00,06,00, 78,09,C8, 08,312 
978 DATA FF,60,38,00,69,04,C9,09,E9,09,FB,09,7F,C9,8F,FF, 1664 
988 DATA 99,60,90,90,90,00,00,00,00,00,08,09,99,22,08,98,42 
998 DATA 99,90,49,90,90,C8,99,0C,F9,09,0C,FF,FF,FC, 3F,FF, 1699 
1989 DATA F9,90,99,00,00,00,08,00,00,00,00,00,00, 090,00, 00,249 
1919 DATA 98,00,06,00, 00,99, 91,98, 09,99, 09,38, 09,6C,98, 70, 441 
1929 DATA 29,3C,69,9C, 79,3C,3F,F6,9F, F8, 00,00, 00, 90,00, 09,938 
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1930 DATA 99,00,00,00,09,00,09,00,00,09,00,09,00,09,06, 18,24 
1949 DATA 89, 0C, 99,00, 08, 38,9F,F8,0F,CO,00,00,60,00, 00,00, 509 
1950 DATA 90,08,00,09,00,00,00,00,00,00,00,00,00,00,00,00,0 
1968 DATA 99,00,00,00,09,90,08,0C,00,39,CC,D8,1F, FC, 49,0F,626 
1979 DATA 39,C9,0C,00,EB, 3C, 90, 7F,F6,00, 1F,E9,90,00,00,00, 1166 
1988 DATA 99,09,09,00,06,00,08,00,00,09,66,00, 00,09, 00,99, 192 
1998 DATA 96,09,40,00,08,C0,00,0C,FD,09,8C,FF, FF, FC, 3F, FF, 1609 
1199 DATA F9, 09,00, 00,00,00,08,00,00,00,60,09,00,00, 09,00, 249 
1119 DATA 99,08,90,09,00,09,18,00,18,09, 18,00, 18, 78, 19, CE, 447 
1128 DATA 1F,0E,FF,FC,FF,FO,08,00,08,00,00,00,00,00,09,00, 1947 
1139 DATA 69,09,00,00,00,09,03,00,00,09,00,09,01,C9,08, 78,316 
1149 DATA 99,0C,9F, FC, 0F,F0,08,00,08,00,00,00,00,09,00,09,534 
1159 DATA 99,09,00,00,00,00,09,00,09,09, 09,00, 00, 38, 00,60, 164 
1169 DATA 89, 7C, 99,00, 08, 38,3F,F0,0F,CO,00,09, 60,09, 80, 09, 702 
1179 DATA 99,00,09,09,00,00,03,99,09,00,00,00,3F,E6,03,FE, 547 
1189 DATA 9F, 89, 7C, 09, E0, 00,C9,00,E0,08,F8,00,7F,C0,8F,FF, 1744 
1199 DATA 99,00,00,00,00,09,00,99,09,90,09,00,00,0E, 00, 78, 134 
1299 DATA 19,C8,71,F0,F6,FC,FE, 1E,9F,F6,08,00,06,60,00, 00, 1758 
1219 DATA 99,09,00,09, 09,09, 09, 39,00,09, 00,09, 00,00,00, 18, 72 
1225 DATA 89,00, 99,00, 99, 38,3F,F8,0F, CO,09,00,00, 00,00, 00,598 
1239 DATA 90,09,90,00,09,00,00,09,09,00, 00,00, 09,96, 00,08,0 
1249 DATA 99,09,09,08, 1E, 90,08, 77,08, 39,C7,00,1F,FF,40,DF, 761 
1259 DATA FC, CA, D, 89, 8, 3C, 9, 7F,F6, 09, 1F,E0, 09,00,00, 49, 1499 
1269 DATA 97,77,73,3E, E0,00,06,00,08,00,08,00,00, 00,09, 00,527 
1279 DATA 90,09,00,09,00,00,16,69,18,99, 18,49, 18, 78,19,CE, 543 
1289 DATA 1F,0E,FF, FC, FF, F0,08,00,00,00,09,00,00,00,60, 09, 1047 
1299 DATA 99,09,00,09,00,00,09,09,00,00,09,09,0F,F0,0F,F6,519 
1309 DATA 99,09,00,00,00,60,01,98,08, 00,09, 18,09,F8, 03,96, 560 
1319 DATA 4E,3C,9F,FF,93,E7, 09,09, 09,00,00,00,00,00,00,08,578 
1329 DATA 99,09,00,09,93,0C,03,00,03,00,03,00,7F, 00,07,E9, 382 
1339 DATA 91,FE,FF,60,F0,00, 00,00, 09,00, 00,09, 00,09,00,09, 878 
1349 DATA 99, 09,09, 33,00, 00,08, 38,08, D8,9F, QC, ?F, 89,97, E9, 709 
1359 DATA 91,FE,FF, 88, F0, 00, 00,00, 00,00, 00,09, 00,00, 00,40,878 
1369 DATA 99,09,00,00,00,00,08,00,08,00,09,00,03,0C, 06, 18,45 
1379 DATA 0C, 38,96, 18,93, 0C, 09,00,09,09,00,00,00,00,00,00, 195 
1384 DATA 09,09,00,00,06,00,09,00,08,00,00,00,39, C0, 18, 69, 369 
1399 DATA 40,34, 18,69,39, C9, 09,00, 09,00,09,00,00,00,00,00,429 
145 DATA 99,09,00,09,00,1F,31,60,39,FC,CE, 09, 00,03, 00,00,685 
1419 DATA 99,00,09,00, 00,04, 09,11, 00,00, 00,FE,01,63,07, CA, 646 
1429 DATA 4C,F9,7F,F8,FF, CO,C,00,C8,00,C0,00,C0,90,C9, 80, 2926 
1439 DATA 00,09,09,66, 09,00, 0,00,09,FC,F8,09,90,00,00,09, 602 
1449 DATA 09, 09,09, 00,00,00,09,00,08,00,00,09,00,00,09,00,0 
1459 DATA 99,09, 16,7F,71,F1,F6,FC,FE, LE, 3F, F6, 09,09, 00, 00, 1592 
1469 DATA 09,00,09,00,00,02,98,0C,99,0C,09,0C, 09, 0C, 00, 0C,69 
1479 DATA 99,00, 19, 17,79, 21,F8,FB,FE, 1C, 8F, F4, 09,00,00,90, 1277 
1489 DATA 09,09,99,09,00,08,99,0C,99,0C,99,0C,00,0C, 09, 4C,60 
1499 DATA 99,00, 19,17, 79,21,F8,FB,FE, 1C, 3F, F9, 09,00,06,69, 1379 
1569 DATA 09,09,09,08,90,08,99,00,3C,8C,9F,0C,91,DC, 9, 7C, 456 
1519 DATA 98,EC, 3F,CF,3E, 99, 09,09, 00,00, 00,09,00,09,09,09,571 
1529 DATA 09, 09,09, 0C, 08,99,00, 00,989, 3C,09,6E, 90, 7E, 09, 7E, 434 
1539 DATA 99,06, 19, FC, 70, 7E,F6,06,FE, 1C, 5F,FO,00,00,06,69, 1453 
1549 DATA 09,09,09,09,90,00,99,0E,99,0C, 90,00, 99, 0C, 00, 00,62 
1559 DATA 99,18, 19,FC, 79, 7E,FB,06,FE, 1C, 3F,F9, 00,00, 00,09, 1369 
1569 DATA 99,09,00,00,00,00,08,0E,08,0C,09,0C,09, AC, 09, 8C, 62 
1579 DATA 99,18, 19,FC, 78, 7E,F6,06,FE, 1C, 5F,FU,00,09,06,69, 1471 
1589 DATA 99,09,00,00,09,02,96,9C,3C,8C,9F,0C,D1,CC, 09, EC, 552 
1599 DATA 99,78,93,F8,93,F6, 96,09, 00,09,00,09,00,09,00, 00,622 
1699 DATA 09,06,00,09,00,0C,09,08,09,00,08, 1C, 00, 1E, 09,06, 76 
1619 DATA 99,0E, 19,FC, 79, 7E,F8,06,FE, 1C, 3F, F9, 00,09,06,60, 1461 
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